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PRÉSENTATION 


Vous venez d'acquérir votre nouvel ordinateur au standard 
MSX et vous désirez découvrir ce qu'il peut vous apporter 
de plus qu'une machine dotée d’un Basic Microsoft ou Ap- 
plesoft ? 

Destiné à un public déjà initié à la micro-informatique, le 
“BASIC MSX : Méthodes Pratiques” répondra à votre at- 
tente de perfectionnement. Jacques Boisgontier, auteur du 
best-seller “Le Basic et ses fichiers", y adopte une dé- 
marche originale en présentant les instructions du Basic 
MSX au fur et à mesure de vos besoins. 

Si le “BASIC MSX” ne s'adresse pas aux débutants, il 
comprend cependant en annexe un rappel, sous forme 
d'initiation, des notions de base nécessaires à la compré- 
hension du texte. 

Loin d'être une liste sèche d'instructions, le “Basic MSX” 
propose quantité de programmes-exemples dans lesquels 
vous découvrirez de nombreuses astuces utiles. 

Cet approfondissement du langage Basic MSX est 
complété par un chapitre “programmes” où, du jeu au gra- 
phisme, en passant par la gestion, vous pourrez mettre en 
application toutes vos connaissances, et créer de très belles 
pages-écran, A vous de jouer 1 
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PRISE EN MAIN | 1 


LE CLAVIER 

A la mise sous tension, apparaît le message : 

L . U 

N i -.:r o_ >;;■ f't, 

■ — Curseur 

Vous êtes sous BASIC. 


M S ! : S Ë Fl I L.- v ■?; \\ i O i "i 
Copyright b :' 

N. i 4 î< 1 E’ F 'iü' f ’ f" i.Y 
0 !■: 



Voyons le rôle des touches essentielles : 



i vous frappez “print 4-5” (afficher 4+5), il ne se passe rien. Pour 
Dtenir un résultat, il faut "valider” la ligne frappee avec la touche 
-contre que nous appelons IreturnI 
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Lorsque cette touche "caps" est enfoncée, les lettres sont affi- 
chées en majuscules. Une lampe signale si cette touche est en- 
foncée ou non. 


ESPACE 


Cette touche, en bas du clavier, déplace le curseur d'une position 
à droite, sans écrire, permettant ainsi d’introduire des espaces 
dans le texte frappé. 



Cette touche, appelée “shift permet d'accéder aux caractères 
du naut des touches à deux caractères. 

Il faut d'abord appuyer sur cette touche, puis MAINTENIR cette 
touche tout en appuyant sur le caractère désiré. 




Exemple : Pour obtenir le caractère guillemet, appuyez sur les 2 
touches ci-dessous SIMULTANÉMENT 

i 

Essayez de frapper : PRINT “BONJOUR ”. 

Cette touche permet de déplacer le curseur à gauche et ainsi de 
modifier un caractère erroné. 


I 4 

# 


HOME 


Positionne le curseur en haut à gauche de récran. 


SHIFT 

— 

CLS 


CTRL 

STOP 


Efface l'écran. 


En appuyant simultanément sur les touches [ctru et [sîôR l'exé- 
cution d'un programme est interrompue. Elle peut être poursuivie 
en frappant “cont (cf. chapitre “La mise au point des program- 
mes”). 


STOP 


Suspend l'exécution d’un programme. En appuyant à nouveau 
surgrop], l'exécution se poursuit. 


Les touches présentées ci-dessous ne sont pas indispensables pour une initia- 
tion au BASIC. 



Cette touche permet d’accéder aux caractères dont les codes 
sont compris entre 1 et 31 (cf. annexe) 
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INS 




DEL 


Ces touches sont utilisées pour modifier les commandes ou lignes 
de programme (cf. chapitre "Editeur de programme ). 


F6 ^ 


F10 

Fl 


F5 


Si vous appuyez sur la toucheg, le premier mot en bas de I "écran 
(COLOR) est affiché à la position du curseur. Ceci permet de 
simplifier l’écriture des programmes. 

Le jeu d’instructions prévu à la mise sous tension peut être mo- 
difié (cf. chapitre "L’entrée au clavier”). 

Pour supprimer l'affichage des mots associés aux touches 
F1...F10, frappez keyoff. 


DEAD 


En appuyant sur cette touche puis sur une voyelle minuscule, on 
obtient une voyelle avec accent grave. 


SHIFT 

DEAD 




GRAPH 




SHIFT 

GRAPH 

. 




CODE 




SHIFT 

CODE 


Permet d obtenir des accents aigus sur les voyelles minuscules. 


Cf annexe 


Cf annexe 


Cf annexe 
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L’ÉDITEUR DE PROGRAMMES 


L’éditeur de type "plein écran” est d'un emploi très simple. Il utilise quatre tlèches 
ainsi que les touches Tn| et IdelJ . 


INSERTION D'UNE LIGNE 


Pour insérer une ligne entre 1 0 et 20, on choisit un n° de ligne intermédiaire (1 5 
par exemple). 


15 PR I N T "MONSIEUR ” 


LIST- 


1 


10 PR INT 11 BONJOUR 11 
15 PR INT "MONSIEUR" 
20 bûTO 10 
ÜK 


MODIFICATION D’UN CARACTÈRE 
DANS UNE LIGNE DÉJÀ FRAPPÉE _ 


1 /Amener le curseur sur la ligne à modifier à l’aide des flèches * [ . 

2/Positionner le curseur sur le caractère à modifier avec les flèches <— 
3/Frapper le nouveau caractère qui efface l'ancien. 

4/Valider avec la touche IrëtürnI 



Pour déplacer le curseur en diagonale, appuyez sur deux flèches simul- 
tanément. 
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SUPPRESSION D’UN CARACTÈRE 


Positionnez le curseur sur le caractère à supprimer. Puis appuyez sur la touche 

RÉ- 


INSERTION DE CARACTÈRES 


Pour insérer un caractère dans une ligne, on positionne le curseur devant la 
position d'insertion et on appuie sur |n|. Il suffit alors de frapper les caractères à 
insérer. Les caractères à droite de l'insertion sont décalés automatiquement. 

La frappe de IrejurnJ valide la modification. 


Une modification en cours peut être annulée en frappant IctrL | stofI 


La frappe de l'une des 4 flèches provoque la fin du mode insertion. 



Appuyer sur 
"INS” puis 
frapper "I" et 
"RETURN” 


DUPLICATION D’UNE LIGNE 


Pour dupliquer une ligne de programme (avec un autre numéro), modifiez le 

numéro de la ligne puis appûyez sur ftETURNi 

La même ligne de programme existe alors avec 2 numéros, 

Attention : SI vous frappez une commande sur une ligne déjà écrite, vous ob- 
tenez te message "SYNTAX ERROR”. 

Dans ce cas, appuyez sur lsHirr | CLSj el frappez la commande. 

(Pour “RUN”, appuyez sur jSHirrl fïcI) . 
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Si vous commettez une erreur de frappe en entrant une commande, il n’est pas 
nécessaire de la frapper à nouveau. Positionnez-vous sur la commande avec les 
flèches ; corrigez l’erreur puis appuyez sur IreturnI 

Exemple : 


L rH £J 1 ? 

SYtJTR: • FR P Ü R 

Revenez sur LAST ; changez “A” par ‘T’ et appuyez sur iret urï^ . 

Remarque : Lorsque vous ajoutez des caractères à la fin d’une ligne de program- 
me en dépassant une ligne d'écran, il y a ajout de la ligne d'écran suivante. Dans 
ce cas, utilisez [Dig pour supprimer les caractères ajoutés (ou|c trl[eJ) - 


Les numéros de ligne doivent être compris entre 0 et 65535. 

Une ligne de programme ne doit pas excéder 255 caractères. 

Le caractère référence la dernière ligne utilisée (LIST par exemple). 
Plusieurs instructions sur une même ligne doivent être séparées par le caractère 

L'instruction PRINT peut être remplacée par u ? 11 . 
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LES COMMANDES BASIC 


■ Ain o 

■ COM 

■ LO AD 

■ RLN 

■ BLOAD 

■ CS A VL 

■ MF RG F 

■ SA\ F 

■ BS A VF 

■ DFLF ) F. 

■ NEW 

■ TRON 

* CLE A R 

■ LIS I 

■ RFNUM 

■ TROFF 


■ ('LO AD 

Ces commandes sont acceptées après affichage de ' ok m . Elles peuvent aussi 
être écrites comme instructions dans un programme. 

AUTO n° ligne départ, incrément 

Génère un numéro de ligne à chaque fois que vous appuyez sur I retu rFI. On sort 
du mode “auto v en appuyant sur jc rRL I'stopI . 

mu; ü ' numérote de 10 en 10 

h ! ! 10 lûü ' positionne en 100 et incrémente de 1 0 en 10 

hutü 100, U 1 positionne en 100 et incrémente de 5 en 5 


Si un numéro de ligne existe déjà, le caractère est affiché 

BLOAD “U:nom-fichier”, R, décalage 

Charge en mémoire une sauvegarde de la mémoire faite par bsave. 
“R” provoque lexécution. 
décalage 1 ’ provoque un décalage. 


BL ORD 
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BSAVE “Ihnom-fichier”, adresse début, adresse fin, adresse 
exécution 

Sauvegarde une zone mémoire. 

SSRVE1 11 CRS t SS " • ÿ.:H0000 , CH 1 000 

Sauvegarde sur cassette la zone mémoire comprise entre &H0000 et &H1 OÛÛ. 


CLEAR espace chaîne, mémoire maxi 

Efface toutes les variables en mémoire centrale, affecte l'adresse mémoire maxi- 
mum pour le BASIC et réserve l'espace pour les chaînes qui est de 200 carac- 
tères par défaut. 

CL. ERE 1000 •’ reser-ve 1000 caractères Pour les chômes- 

CL ER R 1000 .*66000 1 P rote 9^- 1?. piçiïiü i r-e au de s su. s de 60000. 

CLOAD “nom-programme” 

Charge le programme spécifié (sauvegarde par csave). La touche Iplayi du lecteur 
de cassette doit être enfoncée. 

Si la télécommande est connectée, le moteur du lecteur est mis en marche au- 
tomatiquement. 

C L DHL 1 1 E SS 1 1 c ha r 9 e- 1 e F 1 r o9 r a. ru roe ‘ E S S ■’ - 
G L 0 H P cha r 9 e- l e- F 1 r e m i e r P r'- o 9 r a. ni ri e- r - e n o n t r é . 

Le message “found” est affiché dès que le programme est trouvé. 

CLOAD? “nom-programme” 

Permet de vérifier qu'une sauvegarde a été effectuée correctement. Le program- 
me en mémoire est comparé à celui sur cassette. 

CL G RD? 

CLÜRD? "ESS 11 


CONT 

Continue l’exécution d'un programme après arrêtée celui-ci par stop qu Ictrl i sfôfl 
N’est pas accepté si le programme a été modifié (dans ce cas, utiliser GOTO 
XX). 


CSAVE “nom-programme”, vitesse 

Sauvegarde un programme sur cassette. 

“vitesse” égal à 1 spécifie une vitesse de 1200 bauds, 
“vitesse” égal à 2 une sauvegarde à 2400 bauds, 

Par défaut, la vitesse est de 1200 bauds. 

La touche EnregI du lecteur/enregistreur doit être enfoncée. 

r^RVE "ESS" 

CS R VE "ESS", 2 •’ 2400 bauds 
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La sauvegarde est faite sous forme compactée. Elle est relue par “cload h . Si la 
télécommande est connectée, le moteur du lecteur/enregistreur est mis en marche 
automatiquement. 

DELETE n° ligne début-n° ligne fin 

Supprime les lignes entre les limites indiquées. 

DELETE 100- 200 ' supprime les liâmes 100 a 200 

DELETE . ■' su.P P r 1 nie la 1 1 9 ne courante. 


Les numéros de ligne spécifiés doivent exister. 


LIST n° ligne départ-n û ligne fin 

Liste les lignes de programme entre les limites indiquées. 


L I 

5T 

‘ liste 

to 

Lï 

5T 30-50 

' liste 

le 

L..I 

BT 500™ 

' liste- 

de 

U 

BT --400 

lis t e 

• i U. 

Lï 

ST . 

• liste 

1-?. 


,t le Pr*o9r-3.rjroe 
li9 Ti' es 30 5. 50 

500^5. la fin 
,qu '' a 400 
1x9 ne courante 


LOAD “U:nom-programme”,R 

Charge un programme sauvegardé en ASCII {par SAVE). 

La touche ^3 du lecteur de cassette doit être enfoncée. 

“R” provoque l'exécution. 

LORD “PR VE" ‘ char 9e le P r c^r-ariroe ' FRYE'' 

LORD “CRS : PRVE" _ , 

LORD “PRVE" * R ' char9e le Pr r o9rarriiïie et lance' 1 exécution. 
LORD “CRS “ ' charge le premier P ro9r anime r encontre - 


On ne peut lire par “load" un programme sauvegardé par “csave". 

Si la télécommande est connectée, le moteur du lecteur est mis en marche au- 
tomatiquement. 

MERGE “U:nom-programme” 

Concatène le programme spécifié (sauvegarde en ASCII par “SAVE”) au pro- 
gramme en mémoire centrale. Les lignes de programme dont les numéros sont 
identiques aux numéros de lignes déjà en mémoire remplacent celles-ci. 

Cette commande est généralement utilisée pour ajouter des sous-programmes 
à un programme. 


10 MERLE 11 CRS : HRRDC “ 
20 MERLE 11 HRRDC" 


NEW 

Efface le programme en mémoire centrale. 
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RENUM nouveau numéro y première ligne, incrément 

“nouveau numéro” qui est par défaut égal à 10 spécifie le nouveau premier 
numéro de ligne, 

“première ligne” spécifie la ligne où doit commencer la renumérotation. C’est la 
première ligne par défaut. 

incrément” représente l'incrément à utiliser pour la renumérotation. Il est éaal 
à 1 0 par défaut. 


10 RENUM 
£0 RENUM 100 
30 R EM un 100, 

RUN 


r'OïH.Uï|£ r ot t • 'i 10 \ i 1. y T f ' T t I f ' 10 

1 y. P P i L»5'! 1 i ’îütï'r^- N h y j. fiE 1. MH 

re-Tiumerot*-: dt= j en j 


Exécute le programme en mémoire au premier numéro de ligne. 

Toutes les variables sont remises à zéro. Les fichiers sont clos. 

RUN n° ligne 

Exécute le programme à partir de la ligne spécifiée. 

SAVE “Umom-programme” 

Sauvegarde le programme de la mémoire sous forme ASCII, c’est-à-dire sous 
forme non compactée. Le programme sauvegardé peut être chargé par “load” 
ou “merge\ 


«fl VE ” CRS : ES3R I 
fl VE "ESSAI " 

H VE U CRS M 


s •?. l j . d^r s-u.r 

s-3.uve9-3.rde su r cassette sans donner de nom 


Sur cassette, la syntaxe ‘SAVE” “nom-programme”, A* est équivalente à : 

“SAVE “nom-programme”. 

Avec un lecteur de disque, la syntaxe pour une sauvegarde ASCII devient • 

‘SAVE "nom- programme”, A\ 

TRON 

Permet de visualiser les numéros des instructions exécutées (cf, chapitre « Mise 
au point des programmes »). 

TROFF 

Annule “tron m 

Rappelons que “print fre(0)” et “printfre(xs)” donnent respectivement l'espace 
libre en mémoire et l'espace libre pour les chaînes. 
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LES VARIABLES 

NOMS 


Les noms de variables s’écrivent avec plusieurs lettres ou chiffres mais le premier 
caractère doit être une lettre. 

Seuls les deux premiers caractères sont significatifs (prix est équivalent à pr). 
Un nom de variable ne doit pas comporter un mot clé du BASIC. Ainsi “'coiffeur" 
qui contient Tf” n’est pas accepté. 


TYPES 


Il y a quatre types de variables : les variables entières, simple-précision, double- 
précision et chaînes de caractères. Le type est précisé par un caractère à 
droite de la variable (% $ # !). 

Exemple : X% = 5 (variable du type entier). 

Par défaut, lorsque le type n’est pas précisé, les variables sont en double-préci- 
sion. 


Type 


Caractère de 
déclaration 


Exemple 


Entières 

(nombres entiers compris entr> 

32768 et + 32767 

Simple précision 
(6 chiffres significatifs) 

Double précision 
14 chiffres significatifs 

Chaînes de caractères 
de longueur variable 
(255 caractères au maximum) 

Les variables de même nom avec des types différents sont considérées comme 
des variables distinctes (A et A$ par exemple). 

clear et run initialisent les variables avec des valeurs nulles (0 pour les variables 
numériques, chaîne vide pour les variables chaînes). 

La place occupée en mémoire va, bien sûr, en croissant avec la précision des 
nombres. Il en va de meme pour les temps de calcul sur ces nombres. 

Pour les tables de chaînes, 3 octets par élément seulement sont réservés au 
moment où "dim” est exécuté. 

Les chaînes elles-mêmes sont rangées dans un espace particulier réservé par 
“clear espace" Elles utilisent un nombre d'octets égal à leur longueur. 


% X% 1 23: JOURS % - 365 

! SOMME! 1234.56 

# SOMME# - 123456789.12 # 

S NOMS « DUPONT » 
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CONSTANTES HEXADÉCIMALES 


Des constantes hexadécimales sont spécifiées par “&H” devant le nombre, 

ltt PF: INT &HFF > 255 

Des constantes hexadécimales définies dans des DAT A pourront être lues ainsi : 


10 DR T R &HFF 
20 REfiD X? PR INT 
ru. ri 

“i CT <= 


CONSTANTES OCTALES ET BINAIRES 


Des constantes octales sont spécifiées par “& 0 ” devant le nombre. 
Des constantes binaires sont spécifiées par “&b”. 

Exemple : 


lü FRI NT &G377 
20 PR INT m%à l 

rij.Ti 


Les nombres représentés vont de -32768 à +32767. Les nombres négatifs sont 
représentés sous forme de complément vrai (le premier des 1 6 bits est positionné 
à 1 pour les nombres négatifs). 


O et. 3 \ 

déc i ma l 

hçxadei 

7,0 1 00000 

-3 2768 

;< : H3hnm 

&l'j 1 0000 1 

-32767 

:-.;H800 1 

&Ü 1 77777 


&HFFF F 

LU000UÜ0 

Ü 

& H 00 00 

&Ü00000 1 

+ 1 

:;,H00U ! 

U t' r > i < 

+■ 3276 7 

&H7FFF 
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DEFINT-DEFSNG - DEFDBL-DEFSTR 

(Définition globale de type de variables) 

DEFtype lettres Permet de définir globalement le type de toutes variables 

dont les noms commencent par les lettres spécifiées, plu- 
tôt que de déclarer explicitement le type de chaque va- 
riable par un caractère (%, $, #, î). 

On peut cependant déclarer explicitement par un carac- 
tère (!, %, #, $) un type de variable qui aurait été défini 
par DEFtype. La déclaration explicite est prioritaire. 

DEFINT J Toutes les variables commençant par J et non déclarées 

explicitement par un caractère (!, %, $, #) sont des va- 
riables entières. 

DEFINT A-C Toutes les variables commençant par une lettre A, B, ou 

C sont du type chaîne. 

DEFINT A-B,D-F Spécifie deux domaines de variables entières. 

lu DEFINT J ' va.nU.bles ODrnr'ïencarit Par J -> entières 

20 JR- 123. 456 

30 J ! = 1 23 .456 '* de c l ar a. 1 1 c* n e x. PI i c i t e P r ion ta i r e 

49 PR INT JR, J] 

ruii 

123 123.456 


CONVERSION DE TYPES DE VARIABLES 


Le stockage d'une valeur se fait suivant le type de la variable 


10 H’ U-l 23- 45 
20 PR INT R3 
ru. n 

123 


Les opérations sont effectuées en double précision. 

10 H'ii-2 : B*. =3 
20 PR INT 
ru.i'i 

. 6 6 6 66 66666666 ? 

EFFETS DE LA CONVERSION SUR LA PRÉCISION 

La conversion en entier supprime la partie fractionnaire. Un nombre double- 
précision converti en simple-précision est arrondi. 
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Remarques : Les variables simple et double-précision sont représentées de 
façon interne sous forme mantisse exposant. La mantisse est représentée en 
Décimal Code Binaire (1 chiffre sur 4 bits). Ceci évite les erreurs d'arrondi qui 
existent sur certaines versions Microsoft où la représentation est en binaire. 

Les valeurs des variables peuvent être comprises entre 1 0^61 et 1 0’61 . 

Au-delà de 1 0 13 , les valeurs sont affichées sous forme mantisse exposant. 


1 0 }<> 1 £ 3456783 1 2345 # 

20 ■,'= 1 . 23456783 12346E+14 
30 PR INT X , Y 


ru Ti 

1 2 3456 7b3 1 2345 
1 - 23456789 1 2346L+ 1 4 


Le type et le nom de la variable occupent 1 +2=3 octets. 


PLACE OCCUPÉE 

PAR LES VARIABLES ET TABLES 


1 

variables 

tables 

entiers 

3 t 2=5 

2 octets par élément 

simple-précision 

3 + 4 = 7 

4 octets par élément 

double-précision 

3+8=11 

8 octets par élément 

chaînes 

3+3 + 

1 

3+ longueur par élément 


longueur 

L 
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LES EXPRESSIONS ET OPÉRATEURS 


Une expression peut être simplement une constante du type numérique ou chaîne, 
une variable ou une combinaison de constantes et de variables liées par des 
opérateurs. 

Exemple : (X 2) + 4 6 

Les opérateurs effectuent des opérations sur des valeurs. Ils sont classés en 
trois catégories : 

1 /Arithmétiques 

2/Relationnels 

3/Logiques 

OPÉRATEURS ARITHMÉTIQUES 


Exponentiation 

* / Multiplication Division 

H — Addition Soustraction 

MOD Modulo 

\ Division entière 

L'évaluation des expressions se fait avec Tordre des priorités des opérateurs 
défini ci-dessus. 

5 + 10/5 est égal à 7 

Des parenthèses permettent de changer cet ordre. Ce sont d'abord les expres- 
sions entre parenthèses qui sont évaluées. 

(5 4- 10) 5 est égal à 3 

X MOD Y : L'opérateur MOD donne le reste de la division de X par Y. 

PRINT 100 MOD 3— > 1 

X\Y : Donne ia partie entière d une division. X et Y doivent être compris entre 
- 32768 et 4- 32767. 

1 00\3 — > 33 

OPÉRATEURS RELATIONNELS 


Ils comparent 2 valeurs. Le résultat est soit égal à 1 (condition vraie), soit égal 
à 0 (condition fausse). Ceci permet de prendre une décision (par if...then... else). 


100 IF X<0 THEN PRINT « NOMBRE NEGATIF » ELSE PRINT « NOMBRE POSITIF » 
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= Egalité 

< Inférieur 

> Supérieur 

<> Différent 

<= Inférieur ou Egal 


OPÉRATEURS LOGIQUES 


Ils testent des relations multiples. Le résultat de l'opération logique est soit faux 
(égal à 0) soit vrai (égal à 1) et permet ainsi de prendre une décision par if... 

THEN...ELSE. 

100 IF A<0 AND B< 0 THEN PRINT « A et B SONT NEGATIFS » 

L'ordre des priorités dévaluation des opérateurs logiques est le suivant : 

NOT — AND — OR — XOR — IMP — EQV. 

Dans les tables de vérité ci-dessous “O" signifie ' FAUX” et “1” signifie “VRAI”. 
Mais en réalité le TEST se fait sur 0 (FAUX) et sur <> 0 (VRAI) et le résultat est 
soit 0 (faux), soit - 1 (vrai). 


RI R2 


NOT (NON) 

1 

0 


NOT RI | 

0 

1 

RI 

R2 


AND{ET) 


RI AND R2 

IMP(IMPUCATION) 


RI IMPR2 

1 

1 

1 

1 

1 

1 

1 

0 

0 

1 

0 

D 

0 

1 

Û 

0 

1 

1 

0 

0 

0 

0 

0 

1 

0R(0U) 


RI OR R2 

EQV(EQUI VALENT) 


RI EQV R2 

1 

1 

1 

1 

1 

1 

1 

0 

1 

1 

0 

0 

0 

1 

1 

0 

1 

0 

0 

0 

0 

0 

0 

1 

X0R(0U EXCLUSIF) 


RI XOR R2 




1 

1 

0 




1 

0 

1 




0 

1 

1 




0 

0 

0 
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Les priorités d’évaluation des expressions comportant des opérateurs arithmé- 
tiques, relationnels et logiques sont : 

1 /Parenthèses 
2/Opérateurs arithmétiques 
3/Opérateurs relationnels (1 seul niveau) 

4/Opérateurs logiques 

5 H-ï 7 6-6 

1 8 MX M UM=- < 1 H > 8 Xi A +< A< = B >* B > 

15 PR INT MX MU M 

OPÉRATEURS BOOLEENS 


La manipulation de bits et les opérations booléennes sur ces bits s’effectuent 
avec les opérateurs AND. OR, NOT,... 

Ces derniers opèrent sur des groupes de 16 bits au plus qui sont spécifiés par 
des nombres allant de - 32768 à 32767 (représentés en complément vrai de 
façon interne). 

Les opérations s’effectuent BIT à BIT. 

Exemple : 1 5 — >0000000000001 1 1 1 

4 >0000000000000100 

15 and 4 >0000000000000100 >4 

Exemple : 4 >0000000000000100 

2 >0000000000000010 

2 or 4 >00000000000001 1 0 — >6 

Exemple 1 >1111111111111111 

8 - — >0000000000000000 

- 1 and 8 >0000000000001000 >8 
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L’ÉCRAN 


■ CLS ■ l.OCATE 

■ COLOR ■ BASF 

■ SCRE EN 


CLS 

Efface l’écran. 


COLOR écriture.fond, pourtour 


Les couleurs d écriture, de fond et de pourtour se choisissent avec l'instruction 
fr ° ° P '\ A la mise spf tension, récriture est blanche sur fond bleu. Si vous 
frappez color 4,is”. I affichage se fait en bleu sur fond blanc 



Les couleurs sont definies pour tout l'écran. 

COLOR f, • écr i tare rou9*=- 

COLOR ,' 1 5 • fond bl-?.ric 

Les différentes couleurs sont : 


0 

A 

transparent 

8 

rouge 

1 

noir 

9 

rouge clair 

2 

vert 

10 

jaune foncé 

3 

vert clair 

11 

jaune clair 

4 

bleu foncé 

12 

vert foncé 

5 

bleu clair 

13 

magenta 

6 

rouge foncé 

14 

gris 

7 

cyan 

15 

blanc 


Ci ‘ d r S H afflChe successivement le texte de l’écran dans les 
couleurs 1 a 14 sur fond blanc. 
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£8 P A R? '’cilJLEUR ’*■ 

30 FOR CL= 1 TO 14 
40 COLOR CL 
45 PR INT CL .i 

50 FOR TP-1 TO 1000 NEXT TP 
60 NE XI CL 


Le programme suivant affiche toutes les couleurs en haute résolution. 


1 0 •' 



affi ch 9 e co y. U 

20 L 

ÜL.ÜR 

1 , 1 5 

SCREEN 2 

"30 1 




40 ï 

:t 00 



50 F 

IJ R L 

U-l TL 

i 15 ' 15 cou i'rij.1* 

60 

> : >CL 

T 12 


70 

L 1NE 

k • y ■ 

, Y 4- [ 1 , J U . 

30 ï 

•EXT 

LL 


•_ J U ‘ 




100 

Gï“ I 

MT'iJ 1 

1. > 


Si un programme utilise par erreur la même couleur pour l'écriture et !e fond, 
l’affichage à l’écran disparaît. Dans ce cas t frappez en mode direct “COLOR 
1 ,1 5” par exemple pour faire apparaître le texte. 

SCREEN mode, type sprite, sono clavier, vitesse 
cassette, imprimante 

■ Mode : i! existe quatre modes : 

0; 24 lignes de 40 caractères 
1 : 24 lignes de 32 caractères 
2: haute résolution 256*192 points 
3: basse résolution 64*48 points 

Le changement de mode efface l’écran. 

Les modes “SCREEN2” et “SCREEN3’ ne peuvent être commandés en "mode 
direct" ; il y aurait retour automatique au mode 0 ou 1 

Le mode “SCREENO" autorise seulement une couleur de fond et une couleur 
d'écriture à la fois. Il ne peut y avoir de couleur de bordure ni de sprite en mode 
“SCREENO”. 

En mode "SCREEN2” et “SCREEN3", l'affichage de texte se fait à l’aide de 
“GRP". 

INPUT n’est accepté qu'en mode “SCREENO ' et "SCREEN1 ’. 

■ Type sprite : quatre types de sprites peuvent être choisis : 

0: 8‘8 taille simple 
1 : 8*8 taille double 
2; 16*16 taille simple 
3: 16*16 taille double 
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1 o SCF: £ t N 2 , 1 ■ £. p r 1 1 -3 8 * 8 t a il le- si m P l e 

y'-RËtH 8/2 SP ri te 8*8 taille double 

Tous les spriles doivent être du même type. 


■ Sonorisation clavier : 


Egal à zéro, ce paramètre supprime la sonorisation du clavier. 

10 ïCREE N ..0 ' suPPrime lu semer i se. b ion clavier 
10 SCREEN ■' rétablit la sonorisât ion clavier 


■ Vitesse cassette : 

La vitesse de sauvegarde standard est de 1200 bauds par défaut. 

Si le paramètre “vitesse" est égal à 2, la sauvegarde se fait à 2400 bauds La 
lecture se fait automatiquement à la vitesse de sauvegarde. 

cassette 2400 
• :: ■:*. :i » e 1 l 1 1 2 0 0 b . ■* h . J ;5 



■ Imprimante : 


Une imprimante prévue pour usx frappe les caractères graphiques MSX, Le pa- 
ramètre “imprimante” doit être égal à zéro pour ce type d'imprimante. 

Pour les imprimantes standards, les symboles graphiques sont remplacés par 
des espaces. 

■ Jeu de caractères de MSX : 

Le jeu de caractères comprend un jeu standard (32 à 1 27), un jeu de caractères 
graphiques (128 à 255) et un jeu de caractères graphiques obtenus par PRINT 
CHR$(1 )+CHR$(X) 

En mode “SCREENO", certains caractères graphiques n'apparaissent pas 
complètement ; les 2 positions de droite sont supprimées. 

On trouvera en annexe la liste des codes de caractères graphiques. 
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10 •' afficha 9e Jeu car a c t ère s 

20 SCRE EN 1 
30 

50 FOR 1=32 TO 255 
60 PR INT CHR$< I >; 

70 NEXT I 

90 C3.r-3.ct ç r e 9 r •?. P h i 1 u. e- s 

95 PR INT 

1ÛÔ FOR 1=65 TÜ 65+31 
110 PR INT CHR$( 1 >.i CHRS< I 
120 NEXT I 


! 5 * * * * * 11 # * ' < > * + , - . 012 3 4567ÿ9 . , < = 

? 3 6 B C t' E F G H I J K L M N O P Q F: S T U V W X VZC x ] ' 

* ; a b o d e f ^ h i . 1 k 1 rn n o m r ‘ £ t y. y w x y z C î p " 

* ç 0. £ 3 a ç ê ê e i ï i a a é -sÆS o & ÿ u. jJ o u v 

M ié X if * V< Û II 

E -.7 u. t "ê ns « îî €fi s ±2 < r j ~ o « 


BOISAS + hH-l-rn ^ x/\ 


LOCATE colonne, ligne, curseur 

Positionne le curseur dans la colonne et la ligne spécifiées. 

"colonne” doit être compris entre 0 et 39 (SCREENO). 

"ligne” doit être compris entre 0 et 23 

Les valeurs supérieures aux bornes sont arrondies aux valeurs des bornes. 
Ci-dessous, le message "COUCOU" est affiché en colonne 10 et en ligne 5. 

10 CL 3 

20 LOCflTE 10,5 
30 PR INT "COUCOU" 

Si "curseur” est égal à 0, le curseur n'apparaît pas. 

10 L OC P T E 10. 1 0 . 0 J c u. r s e u. r i n v • s 1 b 1 t 

i 0 LOCATE 10.10*1 •' c u. r s t u. r v i s j b 1 e 

Le programme ci-dessous fait défiler un message à l’écran. 


5 •’ ENSEIGNE 

10 CLS 

20 K**" LE BASIC MSX ” 

30 •' 

40 LOCATE 5, 10 : PR INT X$ 

50 X$=RIGHT*( X$ ■ 1 HLEFTÎC X$ , LEN( X$ >- 1 ? 

60 FOR: TP=1 TO 308 - NEXT TP 'temporisation 
70 GOTO 40 
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Il n'existe pas de fonction SCRN (col, ligne) donnant !e code d’un caractère affiché 
à l'écran en mode “SCREENO” ou "SCREEN1 ”, 

Cette fonction peut être remplacée par : 

VPEEK(AM+C + L“40) 


ou "AM” représente ( adresse de la mémoire écran, ’C” la colonne et "L” la ligne. 


Les programmes ci-dessous recopient sur imprimante le contenu de l'écran. 

1 u ■' • — -- — — - r t coP iç d ' ecr ri, i'i scree h ti 

, ; '>j hM=EmSEv 0 ;■ •' buf fer texte 

30 FOR i.,~0 TÜ £3 ' 24 lignes 

40 FOR C=1 TÛ 40 ' 40 colonnes 

70 CL -VPEEK's RM+C+L440 > •' code 

80 LPRINT ÜHR$ i CD > • 

90 H EX T C 
160 LPRINT 
110 NEXT L 


10 recopie 

20 fiM-BASEC 5 > 

30 FOR l.” 0 Tü £3 
40 FOR Ol TÜ 32 
70 CD*VPEEK< RM+C+U32 ) ' 

30 LPRINT CHR*CCD># 

90 NEXT C 
100 LPRINT 
ne next l 


d ' écran ( s creen 
b u. f fer texte 
24 lignes 
32 ce» Ion ri es 
code 


1 > 


BASE(n) 

Fournit les adresses de la mémoire écran (cf. chapitre "L’accès à la mémoire”). 
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L’ENTRÉE AU CLAVIER 


■ INPIJT 

■ UNE INPUT 

■ INPUT$(n) 

■ INKFYS 

■ STICK(n) 

■ ON STR IG 
GOSUB 


■ STRIG(n) ON ■ KEY LIST 

■ STRIG(n) OFF ■ KEY ON 

■ STRIG(n) STOP ■ KFY OFF 

■ PDL(n) ■ ON KEY 

■ PAJD(n) GOSUB 

■ KEY ■ KEY(n) ON 

■ KEY(n) OFF 


■ KEY(n)STOP 

■ ON STOP 
GOSUB 

■ STOP ON 

■ STOP OFF 

■ STOP STOP 


INPUT “Message” ; variable 1 , variable 2,... 

Permet d’entrer, pendant l'exécution d’un programme, une ou plusieurs valeurs 
numériques ou chaînes de caractères. Les variables spécifiées dans INPUT sont 
séparées par des virgules. 

Après r affichage du message, l’opérateur doit entrer les valeurs des variables 
dans l’ordre défini par l'instruction INPUT, en les séparant par des virgules. 

Exemple avec une variable : 

10 INPUT "Votre nom ‘U NOM* 

20 PR INT NOM* 

Ok 

ru.ïï * 

Votre -nom : DU T 1 G N T y 
DUPONT 


L'ordinateur 
attend votre 
réponse 

L ^ 


Exemple avec deux variables : 

1 ü I NPUT " Nof'i . fi 9 e- " , NOM* , AGE 
15 •' 

20 FR: INT NOM*.- AGE 

Ok 

ru. vi 

Nom .. H9e : : DUPONT .■ 20 ~-j 
DUPONT 3Ü i 


Si l’opérateur oublie des valeurs, le message “??” est envoyé 


1 ist 

10 INPUT "Nom,aÿe H ; NOM* -AGE 
20 PR INT NOM*; AGE 
Ok 
RUN 

No ru a y e ? D U P 0 N T 
?? 30 
DUPONT 3U 
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Si l’opérateur appuie sur “RETURN” sans entrer de valeur, une variable conserve 
son ancienne valeur. Par conséquent, il faut initialiser une variable à zéro avant 
une instruction “INPUT”. 

10 NOMS” 11 " : INPUT " Nom " ; NOM* 

20 P R INT NOM* 

30 GOTO 10 

Ük 

RUN 

Non» ? DUPONT 
DUPONT 
Nom ? 


Nom ? DURAND 
DURAND 


Si l’opérateur entre une chaîne alors que c'est une valeur numérique, le message 
“redo" (recommencer) est envoyé. 


10 INPUT "fige 

ni- 

" .= AGE 

ru Ti 

0 9e- ? DUPONT 
' ? R ç d o t r o m s t ■ ■= 

<rt f 


09 e ? 20 
Ük 


Les chaînes comportant une virgule (séparateur) doivent être entrées entre guil- 
lemets. 

Exemple : 


Rue? 11 11> r u e NOBEL M 


LINE INPUT « MESSAGE » ; variable chaîne 

Permet de lire toute une chaîne au clavier, sans tenir compte des séparateurs 
tels que la virgule comme c’est le cas avec Destruction INPUT. C’est seulement 
un retour-chariot qui délimite la fin de la chaîne qui ne peut cependant pas ex- 
céder 255 caractères. 


10 LINE INPUT "Ru.*? " ; RUES 
20 PR INT RUE* 
ük 
run 

Ru e? 1 1 .« rue NOBEL 
11, rue NOBEL 


Remarque : BASIC n’envoie pas de point d'interrogation à la suite du message 
comme c’est le cas avec “IN PUT”. 
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INPUT$(N) 

Fournit au programme les N caractères frappés au clavier sans attendre ia frappe 
de "ENTREE 11 (comme pour INPUT). 

Ceci permet de mieux contrôler Tintroduction des données par l’opérateur. 

Les caractères acquis doivent être affichés par le programme. 


10 CS- IMPOT 1 > ' lit u . ti ::ter-e 

20 FR INT , fi SD. C$ ) affiche le 3.r ictère 

40 GOTO 10 
Ok 
FU JH 

fi bj 


Code de 
RETURN 


Pour acquérir une chaîne de caractères, il faut concatener les caractères au fur 
et à mesure de leur frappe dans une chaîne de caractères (LIG$ sur I exemple). 


LIGS 


0 

u 

P 

0 



Tous les caractères frappés doivent être analysés, y compris le caractère •“ RET- 
URN” (code ASCII 13) et le caractère ,4 «-” (code ASCII 8) (avec "INPUT - ces 
caractères sont gérés par "BASIC”). 

■ Saisie d’une ligne avec INPUT$(1 ) 


30 G LS , .. .. t ... 

4 0 v [_ = 1 ü VL - 1 0 : G U SUE 7 l : i c o 'j * • d o '» '• 1 • * : ‘ 1 1 * u \ \ a. f 

56 END 


6@ ' — -- 

70 L1G*=" 


oO ' 

90 L-LLH 1 -. LIG* > ' LOGE TL VL+L, VL 
100 ■* 

116 C$-IHPUT$‘-. 1 


120 C=H3C<C$> 

1 30 ' 

140 IF" G >8 T H EL N 1P0 
156 IF L>0 T HE H LIG$ 
CHR$( 32 > ; : GOTO 90 LL 
160 ' 

170 IF U - 1 3 T HE H 22:8 
ISO IF G<32 DR G >128 
190 L1G*=LIG*+C* 

200 FR INT Ç* 

210 GOTO 90 
22Ü REfURH 


' c o d t' u. P P r -:= .£■ i o * 1 

LEF r *îi . 1 , ï , L 1 > PR H T CHR3i‘. 

■Æ 90 


r;n rj i»- dt .T i l 

THEN BEÊP GOTO 90 

■' ..i o 8 j. t c a. r ■ ■ ' ?. 1 • ! ï : 1 r ■ *■" 

■ .j f f j. \ i a 9 1 ;- c. *. i 1 ' c L- e r e 
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INKEYS 

L instruction 'inputso)" est "bloquante" ; si l’opérateur ne frappe pas de caractère 
au clavier, le programme reste en attente. Il ne peut exécuter d’autres instruc- 
tions. 

înkey$ lit le clavier en permanence. Si aucun caractère n'a été frappé, la chaîne 
lue (C$ sur l’exemple) est vide. Le caractère frappé au clavier n’est affiché que 
si le programme Ta prévu (et non pas automatiquement comme c’est le cas avec 
INPUT). 


Test cnaîne vide 


10 CL o 

15 

;>U C#-- 1 NI-- E'ï 'ü 
30 PP INI" L.:î- 
40 GOTO ,:0 

Remarque : Avec INKEY$ f le curseur n'apparaît pas. 


IF THF:. 1-1 ZÜ ‘ boucle d’attente 

■3.1 ’ t i che c iracter 


Ci-dessous, tant que vous n'appuyez pas sur une touche, le message 
“APPUYEZ SUR UNE TOUCHE’’ est affiché. 


• 5 fF O*:.:" 

1 THEN END 

, 0 PR INT "RF 

■’PUVEZ SUR 

.N GOTO 18 

i ■ , .* ■ 


U f-. 

F ' IN 


hPPUVEZ SU F' 

UNE TOUCHE 

HPPUVEZ sur 

UNE TOUCHE 

hPPUVEZ SUR 

UNE TOUCHE 

hPPI ÎVF7 Si IP 

jii.jp t ni ip mp 


BOUCLE D’ATTENTE 

Attend que l'opérateur appuie sur une touche quelconque. 

10 Y$ : IF >:%*“ " THEN 10 •’ bou.c le H ■’ .*t.t*-Ti1”>- 

20 PR INT "C'EST PRRTI 11 


Teste si l’opérateur répond assez vite. 

10 PR INT "REPONDEZ i>H (VITE) ", 

20 1 

30 TIME-0 
40 •' 

58 R$= I NK£Y$ ; I F R$< >" n THEN 38 
60 IF T I NE-/ 58 >4 THEN PR INT "TROP TRRD" : END 
78 GOTO 50 
80 •' 

30 ■' suite 
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STICK(O) 

Permet de lire le clavier comme un joystick. Les 8 directions sont obtenues avec 
les quatre flèches (les directions diagonales sont obtenues en appuyant sur deux 
flèches simultanément). 

Les déplacements obtenus sont plus rapides qu avec "INKEYS” (il n’y a pas de 
délai pour la répétition). 

Naturellement, c est dans les programmes d'animation que cette fonction est 
surtout utilisée. 

$tick( 0 ) égal à zéro indique qu’aucune des flèches n’est enfoncée. 

10 ■* TELECPRN AVEC STICK 

26 •’ 

3 0 CF — i 5 : CL — 2 c o u ! s u. r t o vi d £ t e c r i t u. r t 

40 CÜLOR CL ■ CF 
50 SCRE EH 3 
60 •' 

70 G P EN "GRP : " FÜR ClUTPUT AS #1 
S© DR RW "BfïlU, 1 70 11 
30 PR INT #1, "FLECHES " 

100 X~ 1 0Ü : Y - 1 0 ÿ ■' c o o r” 1 d o ti n e e s >4 e P ■?. ft 

1 10 ' - — • - — — — c u. r s & u.r cl i 9 ri o t a n t. 

120 C'-'STICK'.. 0 > • IF C< >0 T HE N 170 •* test c'U^ier 

130 •’ 

1 40 FSE TC X , Y > , CL = P SE T( X - Y > • CF 
150 GOTO 120 

170 FSE T < X . Y Y- CL 
130 ' 


90 

IF 

07 

THEN X= 

<~1 


•' 9'3.uchh: 

00 

IF 

C=3 

THEN X= 

X+l 


•' droite 

10 

IF 

C=5 

THEN Y= 

Y+l 


bl.Z 

20 

IF 

C=1 

THEN Y- 

ï-- 1 


‘ haut 

30 

IF 

08 

THEN X- 

: v“ 1 Y* 

ï“ 1 

Oauche 

40 

IF 

C--2 

THEN X- 

«:+ 1 : v= 

Y- 1 


50 

IF 

C-6 

THEN X- 

X~I : Y= 

Y+l 


60 

IF 

04 

THEN X- 

X+ i : Y- 

Y + 1 


70 

* 






RO 

IF 

X< 1 

THEN X= 

1 



90 

IF 

X >254 THEN 

X=254 



00 

IF 

Y< 1 

THEN Y- 

1 



10 

IF 

Y > 1 : 

30 THEN 

Y- 1 W0 



20 

GO' 

ru L 

,j0 





STICK(1 ou 2) 

Cette fonction donne la direction (parmi 8) du manche d’un jovstick connecté sur 
l'entrée 1 ou 2. Les règles d’utilisation sont les mêmes que pour stick<o>. 

ON STFtlG GOSUB n° HgneO,n° lignel Iîgne4 
STRIG(n) ON 
STRIG(n) OFF 
STRlG(n) STOP 

on strig gosub définit les numéros de ligne vers lesquels il y aura déroutement 
du programme si l'opérateur appuie sur la barre ESPACE ou les boutons de 
validation des joysticks. 
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rf ligne 0 : barre espace 

n° ligne 1 et 3 : joystick 1 
n° ligne 2 et 4 : joystick 2 

10 ON STR I Ci G OS US 190 ' clavier* 

1 Ci OH S TR I G G G SUE: , 290 .* , 400 •' ,i oy s t i c k 1 

STRiG(n) on valide la déclaration faite par ON STRIG GOSUB. 

STRiG(n) ûff annule la validation. 

STRiG(n) stop suspend la validation et mémorise l’action sur la barre “ESPACE" 
ou sur les boutons de validation en attendant ON STRIG(n) ON. 

n = 0 : barre espace 

n=1.3 : joystickl 
n-2,4 : joystick2 


10 OH .OR IG GOSUB 100 
20 STR[U<CO ÜN 
S0 ' 

40 PR I HT "APPUYEZ SUR ESPACE" 

50 GO T 40 
66 ■' 

9 Ü •' s o u. s -• P r o 9 r 4 rn ro ►=• G N ST R: I G 

100 PR 1 MT "JE SUIS PASSE PAR LA" 

110 REHJRN 

APPUYE,: SUR ESPACE 
APPUYEZ SUR ESPACE 
APPUYEZ SUR ESPACE 
JE SUIS PASSE PAR LA 
APPUYEZ SUR ESPACE 
APPUYEZ SUR Es P A UE 


STRlG(n) 

Teste si la barre “ ESPACE” ou les boutons de validation des joysticks 1 et 2 sont 
appuyés. 

n=0 : barre espace 

n-^1 3 : joystick 1 
n=2,4 : joystick 2 


10 X=STRIG' 
20 IF X=-l 

■30 COU: 10 


U 


■H PAINT "OUI " 


ELSE PR INT "NON" 


PAD(n) 

Lit des valeurs fournies" par des périphériques du type “tablette graphique" 
connectés sur les entrées des joysticks 1 et 2. 

■ joystickl : pad(oi : -1 si valeur disponible 
pad(1) et pad(2) X et Y 
pad( 3 ) : bouton de validation 
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■ joystick2 : pad( 4) : -1 si valeur disponible 
pad(5) et pad(6) : X et Y 
pad{7) : bouton de validation 

10 IF PRIX 0 K >~i T HE N 1 H bouc U? do t'te'nt-ë 
20 

100 X-PRIX 1 :■ Y**PfiL>< 2 ) 

110 PR INT H, Y 
120 GOÏO 10 


Le programme ci-dessous trace un dessin par segments de droite à partir du 
point 100,1 00, 


10 3ÜREEN Z 

20 FSE T '• 1 00 .. Iü0 

30 •' 

40 IF PHD-: 0 X >- 1 THE H 40 

Per i 

P Ki tT’ i - ; J.e 

50 IF P H IX 3 Y: >-l T KEN 40 

C'Ci •' 

va l i 

d :?.t iO' i i’ 

ri Pi 

70 X=PR[X 1 1 : Y -Phi Dr Z > 

80 LINE ••••'. N.Y;- 
93 GOTO 40 




PDL(n) 

Lit des valeurs X et Y sur une palette msx connectées sur les entrées des joysticks 
1 et 2. Si rien n'est connecté, la valeur lue est 255. 

“n” doit être compris entre 1 et 1 2 
n = 1,3,5, 7, 9,11 — > joystick 1 
n - 2,4,6,8,10,1 2 — > joystick 2 

1 O ; --PDL 1 - 1 i- 1 : Y--PDL3 2 > 

20 FR INT X,V 
30 GO T l i 10 


KEY numéro touche,chaîne 

Affecte une chaîne, représentant une instruction ou commande, à une touche de 
fonction (Fl, F2,..F10). 

En frappant une touche de fonction, la chaîne associée est affichée à l’écran. Si 
la chaîne est suivie d’un retour-chariot, l’instruction ou commande est exécutée 
automatiquement. 


10 KEY 1 , "EUH" +CHR$< 13 > 
1Ü KEY 2, "LIST” 
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KEY LIST 

Fournit la liste des instructions associées aux touches de fonction. 


key list 

colo: 15.4,7 

color 

O 

O 

CL: 

auto 

cont 

goto 

list. 

list 

run 

run 



KEY OFF 

Supprime l'affichage, en bas de l'écran, des chaînes associées aux touches de 
fonction. 

KEY ON 

Provoque l'affichage, en bas de l'écran, des chaînes associées aux touches de 
fonction. 


ON KEY GOSUB n°ligne1,n° 1igne2,..,n° lignelO 
KEY(n) ON 
KEY(n) OFF 
KEY(n) STOP 

on key gosub définit les numéros de ligne vers lesquels il y a débranchement si 
l’opérateur appuie sur une touche de fonction pendant l’exécution d'un program- 
me. 

KEY(n) on valide la déclaration faite par ON KEY GOSUB. 

KEY(n) off annule la validation faite par KEY(n) ON. 

KEY(n) stop suspend ia validation et mémorise Faction sur une touche de fonction 
en attendant KEYfn? ON. 

10 ON KEY GOSUB 90,120,150 
15 ' 

20 KEY( 1 ) ON * validation Fl 

30 K E Y c 2 0 N •' \t 3 . 1 i d a. t i o ri F 2 

40 <EYX 3 UN v.=Q i dation F 3 

50 ‘ 

6Ü PR INT "APPUYEZ SUR F 1,F2,F3" 

70 GOTO 6ü 
80 ’ 

30 PR INT "FONCTION 1" 

100 RETURH 
110 •' 

120 PR INT “FONCTION 2" 

130 RETURH 
140 ' 

150 PR INT "FONCTION 3" 

160 RETURN 
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ARFUYEZ SUR F1,F2,F3 
APPUYEZ SUR F1,F2,F3 
FONCTION 1 

APPUYEZ SUR Fl, F 2, F 3 
APPUYEZ SUR F 1 F 2 .• F 3 
APPUYEZ SUR F 1 , F 2 F 3 
FONCTION 1 

APPUYEZ SUR F1,F2,F3 
APPUYEZ SUR Fl , FEU FS 


ON STOP GOSUB n° ligne 
STOP ON 
STOP OFF 
STOP STOP 

on stop gosub définit le numéro de ligne vers lequel il y a débranchement si 

l’opérateur appuie sur xtrustop". 

stop on valide la déclaration faite par ON STOP GOSUB. 

stop off annule la validation faite par STOP ON. 

stop stop suspend la validation et mémorise l'action sur ctr;_ stop - en attendant 
STOP ON. 

Le retour s'effectue après l’instruction interrompue (INPUT sur l’exempte). 


10 ON STOP GOSUB 110 ’’ mme-r o de üi CTRL-- STOP 

20 ' 

30 S T OP Cl N * v a \ î d 3. t i o ri i j H S T ü P 

4Ô ' 

50 INPUT "RePondez».. Ü--'N > " R$ 

60 PR INT *' COUCOU" 

7Ü IF R*= ,,,, THEN 56 
80 ‘ 

90 GOTO 50 

100 •’ s o u. s ■ - F‘ r o 9 r ?. r»i m e- OH S T OP 

110 I NF UT 11 Ü n s . r re te vr a i rn e ïï t ( G /' ht > 1 Y F: F' $ 

120 IF RF$= ,, Li" THEN END 
130 RETURN 
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TESTS 

■ IF...THEN...ELSH 
SI. ..ALORS.. .SINON 


IF...THEN...ELSE 

IF expression logique 

vraie ou fausse 


THEN suite d’instructions 

si expression logique vraie 


ELSE suite d’instructions 

si expression logique fausse 


Cette instruction teste si une expression logique est vraie ou fausse. 

Si celle-ci est vraie, alors toutes les instructions comprises entre then et else, sont 
exécutées. 

Sinon, ce sont toutes les instructions après le else qui sont exécutées. 



10 I MP U T "Nombre N.* Nombre B " :• Fl , £: 

£0 IF R>b THEN PEINT "R > B" EL 3F PP T HT "fi ■C«=B" 
3Ü PEINT "suite" 

4u GOTO l-:S 
Ok 

r'ij.Ti 

Nombre h « N ü rotor & B ? 
fi <=B 

•s. U 1 

Nombre R .• Nombre B ? 6 ,• £ 

H / E:* 

S ij i t- ■=■ 

h-J ü m b r e h- 1 .• Ho ro b r e E: ' i ; ' 


En fait, le test peut se faire, non seulement sur une expression logique, mais 
aussi sur une expression arithmétique qui est interprétée comme fausse si elle a 
une valeur nulle ou comme vraie pour toute autre valeur. Mais on évitera d’utiliser 
cette particularité du BASIC. 

5 1 =4 

10 IF I THEN PR J NT "I est t de @ ,! 

5 1-12 

iO IF I > 1 Û jT : I 20 > THEN PR INT IJ ï est comP r : s entf e 10 et 20" 
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Les IF...THEN. ELSE... peuvent être emboîtés, mais il faut alors bien s'assurer 
qu’à chaque IF-THEN il correspond un ELSE. 


10 INPUT "Norubr'e H.. Nombre - B ".'R,' B 

20 IF fl<=B THEN IF fl<B THE H PR INT M R ■ b 11 ELSE i: PIN"ï 11 R- B" 

J — 1 IU~ 

PR INT M R >B " 

I 


ELSE 
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BOUCLE AUTOMATIQUE 

■ FOR 

■ N EXT 

FOR variable-compteur = valeur début TO valeur fin STEP pas 

■ instruction 1 

■ instruction 2 

NEXT variable compteur 

Permet d écrire des boucles de façon plus concise. 

Lorsque l’instruction for est exécutée, le BASIC MSX affecte à la ‘Variable- 
compteur” la “valeur début” spécifiée et mémorise la “valeur fin” indiquée après 
to. 

Toutes les instructions entre for et next sont d'abord exécutées avec ‘Variable- 
compteur”=“valeur début”. L'exécution de next augmente la valeur de la “va- 
riable-compteur” du pas spécifié dans step (1 par défaut). 

Si la valeur de “variable-compteur” est inférieure ou égale (pour un STEP positif) 
à “valeur fin", l’exécution se poursuit à l’instruction après for. Par conséquent 
les instructions entre for et next sont à nouveau exécutées avec la nouvelle 
valeur de la variable-compteur, 

Si la valeur de la “variable-compteur” dépasse “valeur fin” (pour un pas po- 
sitif), l’exécution de la boucle s'achève et le programme se poursuit après 

NEXT. 


FOR 


Compteur 4- valeur début 
stockage de ‘valeur fin” 


* 

Instructions entre 


FOR et NEXT 



NEXT 


A la fin de la boucle, la “variable-compteur” a une valeur égale à “valeur fin” 
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Exemple : 

Le programme ci-dessous affiche les carrés des nombres 1 à 4 



10 F OR U-~.t r'ü 4 ' F'ijJIR r=l . il Vï.îM I ' h 4 

;.?ü PR I HT C * C tC 

30 Nt.'v! L RUINENT ER L- PUIï RL. Le. R H P h' ES F U h' J i ' T 4 

40 PR INT "FIN 1 ': C 
Ok 



Exemple avec STEP négatif : 


10 FÙE C=4 ro 1 S TEP- 1 
20 PPJ N T C C tC 
30 NE 2 T C: 

40 PEINT "FIN" ;C 
Ok 
ROM 

4 LC 


i 1 

PIN 0 


Calculées au moment de I exécution de l'instruction FOR, donc une seule fois, 
“valeur début 11 , “valeur fin” et “pas ne varient pas en cours d'exécution de la 
boucle si les valeurs des variables qui ont servi à les calculer évoluent pendant 
l'exécution. En revanche, la valeur de la variable-compteur peut être modifiée. 


10 F~ 1 
20 X=10 
30 FOR 1-1 
40 IF 1=5 
50 PR i ITT 
F0 NEXT I 
ûk 
R U N 

1 2 3 


Tu v 

R HD F 




4 
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lu FOR 1 = 1 Tu S 
2ü PR INT I. ; 

30 INPÜ T" NOMBRE " • r'T f > 
40 i F H-: l >0 f HEM PR INT 
NEXï i 
!..H. 

RJ J H 

r 1 NOMBRE _il 4 

a NOMBRE ■? -?! 

ItRREUR _ 

"Ë NOMBRE 


"ERREUR : " 1 ^ I - 1 


Ün revient en 
arrière 


ü NOMBRE 
4 NfiMRRR 


C est en fin de boucle que se fait la comparaison de la valeur de la variable- 
compteur à la valeur finale. La boucle est donc exécutée une fois si la valeur 
finale est inférieure à la valeur initiale (pour un incrément positif}. 


lü D-5 • F=2 
20 FOR I -=Ij lu b 
30 PR INT J. 

4ü H EX T I 
Qk 
R UN 


Pour éviter cela, il faut ajouter un test : 

25 IF F<D THEN 40 

Si la "variable-compteur” est du type entier, l'exécution de la boucle est plus 
rapide 

BOUCLES EMBOÎTÉES 

Plusieurs boucles for... next peuvent être “emboîtées . c’est-a-dire qu’une boucle 

peut être placée à l'intérieur d’une autre. Mais il est interdit de les faire se che- 
vaucher. 

Exemple : 


l 11 FUR l==t 1-ï 
2n PR INT !l 1 ::: ; 

-.4 * T U R J -■ 1 J O ; 

PR I NT J; 
bu H EX f ... 
b U F’ R 1 NT 
70 NEXT 1 
M-. 
r ü.m 

i ■- 1 J= 1 i .. 

I - 3 J= î ■ 


' b o lii- :< t - : ■ ri if 
DOUC* .1 i rl i" 1 1 


4 5 t, 7 

4 j b . ■ 

4 S 6 . 1 
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S'il n'y a pas d instruction entre NEXT J et NEXT I, NEXT J.l donne le même 
résultat. 

NEXT (au lieu de NEXT J) est accepté, puisqu en fait NEXT incrémente le 
compteur du FOR le plus récent et que celui-ci est supprime dès qu’il atteint la 
valeur limite. Mais pour des raisons de lisibilité, on indiquera le nom de la variable. 

SORTIE D’UNE BOUCLE FOR 

On peut sortir d une boucle FOR par "GOTO" sans problème. (Les versions 
Microsoft antérieures posaient un problème dans le cas où un indice non “épuisé” 
était utilisé dans une autre boucle FOR “interne' 1 .) 

10 F DR 1 - 1 Fu !;.• 

TU I F ï-".-: " V HEN GOTO :50 ' sortie k. r GÜTO 

30 NE: AJ I 
4M ' 

j0 FOR 1 T I I 

k.M f- IJ R I“1 lu 4 ' [ ’J t- î 1 ï. fini I 1 1 

70 RR INT " 1*=" ;I, 

00 NElr T I 
85 FR INI 

90 he;=-:t j 

100 PR INT PRE'. 0 
110 GOTO 1.0 
ük 
ru n 

I -■ 1 1== 4 I- 3 J~ 4 

1=1. 1^ 2 1===- 3 I * 4 

I-- 1 1* 2 I = = 3 1“ 4 

1 £034 

1- 1. 1= Z 1- 3 1= 4 

i= i i* 2 :o 3 I* 4 

1= 1 2 1= 3 1= 4 

12Û34 
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LES DONNEES 

■ DATA 

■ READ 

■ RESTORF 

DATA 

L'instruction data permet de définir des données dans le programme lui-même. 
Ceiles-ci sont ensuite lues dans des variables par l’instruction “read variable” 
(LIRE variable). 



80 PR I NT 1 1 Mo* e mie : 11 ■; Ml +N2+N3+N 4 ) -'4 
Ük 


ru ri 

10 16 13 14 

Moyenne : 13.35 


Basic lit successivement 
les valeurs 

10,16 13.14 dans NI, N2, 
N3, N4. 


READ 

“READ NI” lit la 1 re donnée (10) dans NI. 

Le pointeur de DATA (géré par BASIC) progresse de 1 . Ainsi "READ N2” lit la 
2 e donnée dans N2, etc... 
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Les données peuvent être écrites sur plusieurs lignes : 

10 D Fl T fi 16 .1 1 b 
20 DP TP 13,1 4 

Les lignes 10 et 20 sont équivalentes à la ligne : 

10 DATA 10,16,13.14 

L'implantation des DATAS dans un programme n’a pas d'importance. Elles sont 
lues dans l'ordre de la numérotation. 

Les chaînes de caractère comportant des caractères spéciaux doivent être pla- 
cées entre guillemets. 

Sur I exemple ci-dessous, sans la présence de guillemets, la virgule serait consi- 
dérée comme séparateur. 

lû DP T fi "12.ru.* LHQ'iFFE ” 

26 •' 

30 RE PD 
40 PR INT X$ 

Ük 
r un 

12 ■ rue L P GAFFE 

RESTORE 

Positionne en début de DATA ce qui permet de relire les données depuis le début. 


lu DATA 6,3,14 
20 ■' 

RE RD H, B, L. 

4 U ' 

5m RESTORE 

6 U ' 

7 h RErlD D , El • F 

8 y: •' 

05 PRIHT 

3ù PR INT Mi B, C 
100 PR INT D : E .. F : 

r»! n 

b 3 14 

é 3 1 4 


liiü l-' t 1. Çrt-U r € 
debo.t DR T R 

L t: ctu.r 0 


RESTORE n° ligne 

Positionne sur le numéro de ligne de DATA spécifié, vous permettant ainsi de 
sélectionner des données particulières. 



TRAlï f ME N ! DES DONNÉES ' 49 


10 

DRT R 6/3 

, 14 

20 

DATA 42 

, 8 

30 

RESTüRE 

20 

40 

rerd ;;..y 

■émt 

<L 

50 

PR INT X; 

Y; Z 


Ük 
rU. T: 

4 £ 8 

ERREURS 

■ OUT OF DATA : u . . n ATA 

Si le nombre de READ exécutés est supérieur au nombre de données en DA 1 A, 

le message out of data est affiché. 


10 DfiTR 15.- 10v_- / 
15 ■' 

£0 RE RD X 
30 PERD Y 
40 PERD Z 
Ok 
ru n 

Out of DRT R iï> 4C1 


Il manque une donnée 


■ SYNTAX ERROR : , 

Le type de la donnée lue doit s'accorder avec le type de la variable. 


Chaîne 


1 fi D R T R b * 1 1 3. n 9 e r 
15 •' 

20 RERD X _ 

Ük 
ru. ri 

S y n 1 3 £■ r r o r î 


Numérique 


n 


La donnée (type chaîne) 
ne s'accorde pas avec 
le type de la variable 
(type numérique) 


L’exemple ci-dessous lit un nom au hasard dans une liste de 4 noms. 

1 fi D h T fi Pie r r" e ■ P -3. u. 1 .* ..i &c ^ u. e s .• n i c o 1 •?. s. 

20 ' 

30 •' 

4G PE STORE 
50 INT< R N [K 1 >*4 ) 

60 •' 

70 IF X=0 THEH 100 

80 FOR 1=1 TO K : RERD : NE ri T I 

90 * 

100 RERD NOM* 

110 PR INT NOM* 

120 GOTO 40 
ük 
ru. ïi 

. i .g.c^ UPS 

p i erre 
fi i CO 1 '3.5 
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i 


Ci-dessous, nous sélectionnons un groupe de DATA. Chaque groupe peut 
comporter plusieurs lignes. La fin de chaque groupe est repérée par le caractère 


1 0 DRT fl ma t sort ■ P or te , cha rnbre 
20 DATA t 

20 DATA Jearvi p terre.' Pau t , .i.qrqiipc. 

40 DATA 4: 

tü DATA r oue , cadre .• f re 1 n , P eda 1 * , ] ] r 

60 DATA t. 

70 ■' 

86 RESTORE 

90 1 NF'UT "Quel RrouPe < 1,2,3;. 

1 00 •' 

110 IF G =1 THE N 170 
120 ' 

130 ' 

140 READ ,•:$ IF THEN G=G-1 : GO TH 110 

150 GOTO 140 
1 60 ' 

170 READ MOT $ 

180 PRIAT MOTS 
l:?0 GOTO 8ü 
Ük 


rur, 
Que 1 

9rou.Pe 

■il. -2, 3) ? 

c. 

J es n 
Que 1 

9 pou, p e 

< 1,2,3) ? 

1 

niai si 

on 




1er data du. 9rou.pe 


TRAIT! MI N ] DES DONNE! S SI 


LES TABLES 


Les tables contiennent des éléments de même nature auxquels nous accédons 
par un indice. Nous pouvons ainsi traiter les éléments d’une table en faisant 
simplement varier un indice. 

Une table comportant plus de 10 éléments doit être dimensionnée par DIM nom- 
table (nombre éléments) 

Soit une table des dépenses relatives aux 12 mois de l'année. Les éléments de 
cette table que nous appelons depenseq sont connus sous les noms de oe- 

PENSE(1 ), DEPENS E(2),.., DEPENSER 2). 

TABLE DEPENSEQ 


1 


2 


M=3— ► 3 


4 


5 


6 


7 


8 


9 


10 


11 


12 

Pour documenter la table, nous faisons varier un indice M de 1 à 12. 

10 DIM DEPENSEE 12 > 

20 ' 

30 FOR M~1 TO 12 
40 PR INT 

50 INPUT DEPENSE-:; M > 

60 NEXT M 
Mois 1 ? 1206 
Mois 2 ? 1106 
Mois 3 ? 1300 
Mois 4 ? 700 
Mois 5 ? 300 
Mois 6 ? '300 
Mois ? î 1000 
Mois 8 ? 1280 
Mois 3 ? 1100 
Mois 10 î 1400 
Mois 11 ? 800 
Mois 12 ? 1200 


1200 


1100 


1300 


— DEPENSE(I) 
-DEPENSER) 
-DEPENSER) 


\ 
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Au départ, ( indice M étant égal à 1. l'instruction INPUT DEPENSE(M) est équi- 
valente à INPUT DEPENSE(I). 

Par conséquent, c'est dans l'élément DEPENSER ) que la première valeur est 
introduite. Au second passage dans la boucle, M étant égal à 2, c'est dans DE- 
PENSER) que la seconde valeur est introduite. Etc. 

Pour connaître le total des dépenses entre 2 mois Ml et M2, nous écrivons : 

10 1>IM DEPENSE':; 12 ? 

,:!0 ' 

30 FOR M= 1 TU 12 
4U PR 1 NT " Mo i s 11 , M ; 

0 U INPUT DEPENSE': M> 

SU MENT M 

90 PR INT 

100 INPUT "Mois l",Mi 
110 INPUT "Mois 2", IIS 
120 •• 

140 TTflL=0 

150 FOR M=M1 TO M2 

1 60 TT R L ~ T T R L + D E P E N 3 E ( M 1 

170 MENT M 

180 PR INT 

1 90 PR I NT " Tôt. a 1 ; " ; M 1 M2 .; T T RL 
200 GOTO 90 

U. M 

Mois 1? 1 
Mois 2? 12 

Total : 1 12 12700 

Mois 1? 1 

Mo i s 2? 6 

Total : 1 6 6000 

Il existe pour les tables un élément 0 : 

100 A(0)= 15 

TRI DES ÉLÉMENTS D’UNE TABLE 


Rangeons dans l'ordre croissant les éléments d une table. Pour cela, nous allons 
utiliser l'algorithme suivant. Nous comparons d’abord le deuxième élément de la 
table au premier : 

□ s’il est plus grand, nous les laissons dans l'ordre 
n s'il est plus petit, nous les inversons afin qu'ils soient dans l'ordre. 
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120 I F PK 1 + 1 KH( I v T H EH SURF RC I + 1 ?, H( I ) INV-l 

I ! I 


Ensuite, nous progressons de 1 pas en comparant de la même façon le troisième 
élément au deuxième, et nous les inversons s'ils ne sont pas dans l'ordre, 
etc. 

Lorsque nous arrivons à la fin de la table, nous regardons s'il y a eu ou non 
inversion : 

n s'il n'y a pas eu d’inversion, c'est que tous les éléments sont dans l’ordre ; 

□ s'il y a eu au moins une inversion, nous nous repositionnons en début de table 
. et nous recommençons. 

Après la première exploration de la table, le plus grand des éléments de la table 
est en fin de table. 

Après la deuxième exploration de la table, le plus grand des éléments restants 

est en avant-dernière position. 

etc. 

Ainsi, après plusieurs passages dans la table (N pour éléments) tous les élé- 
ments seront dans l'ordre. 

Sur l’exemple, nous explorons systématiquement toute la table. En fait, nous 
pourrions réduire la taille de la table explorée de 1 à chaque passage. 

La variable “INV” sert de témoin pour tester en fin de table si on a. au cours de 
l’exploration de la table, fait une inversion. 

Remarque : la méthode de tri utilisée (“RIPPLE SORT ’) qui a l'avantage d'être 
simple à comprendre (et à programmer) est rarement utilisée en pratique dès 
que le nombre d éléments à trier devient important. C’est en effet une des plus 
lentes que Ton puisse trouver. 


1.0 ' TRI DES NOMBRES D ‘ UME TABLE 
;?0 1 


>U 

' MD N U I •::> I T IGM 

N ONE R ES 


40 

‘-h S ' j 1 1"| l'i ! [ j J- : • s* 

j J. i « 1 i 1 


■ 0 

F'ÜF: 1-1 TU H 



00 

INF' IJ T "MÛMEiRE " • U> I > 



7Ü 

o fi 

NET T I 



90 




100 




i 1 0 

FOR 1=1 i 0 H 1 



1 214 

IF M-l ><i ::: E .[ ) THE N S UHF R; 

I T. RK 1 + 1 

I NV -J 

1.30 

HE TT I 



i. 49 

IF I NV - 1 T HE N 80 ' h s. x 

-s. 1 eu. i'ny 

' 3 1 C'ï 

!. 50 

•’ - - - ed U ION 



L 60 

FOR 1=1 TO H 



170 

PR INT fit i :■ 



180 

NET T I 
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ru. n 

NOMBRE • 
NOMBRE ? 
NOMBRE ? 4 
NOMBRE ? O 
NOMBRE " 

4 


■-4 


COMPARAISONS 



2 

4 

6 

8 

9 


SHELL 


Avec les méthodes de tri du type RIPPLE, un grand nombre placé en début de 
table ne remonte que progressivement en fin de table. Avec SHELL, la compa- 
raison s'effectue entre deux éléments séparés par un écart égal, au départ, à la 
moitié de la taille de la table. 

Ainsi, un élément grand en début de table “remonte ' plus vite en fin de table. 



1 + écart W 



1 i Ecart = N-2 2) Ecart N/4 3) Ecart - 1 

jusqu'à ce qu'il 
n'y ait plus 
d’inversions 


La comparaison se fait ensuite avec un écart égal à N/4 et s'achève avec un 
écart égal à 1 (comme RIPPLE). La méthode de SHELL METZNER est deux fois 
plus rapide que SHELL. 


10 

■; i 

RI ■: 

ÏHELL 

2 m 




30 

NF I r 

H =3C 

i 

40 

DIM 

H'.. N F 

' I CH > 

50 

FOR 

1 = 1 

TÜ NFICH 

60 

TIME 

>y 



I >=RN IX 1 > ^ HER T J. 




I KAI'l EMHN'I DKSIJONM : S 


!•; ! £ 

•b MK 1 ~ 

H/-' .i. b h 

0 ■ 



1 OU 

1 j.;iïp J 

!' I l *: fc'CRP'f ■■■ '2 ) • I F' EbHi 

i i 9 



1 2 b 

i i -ÎV - K 


1 JÜ 

FOR J. 

•• : 1 fij HFICH E&RR7 

i. 40 

L 3 i 

EL H K 1 

i SH 

IF r 

v L ')< rK I TH(£N SHHP ! ,: i : 

J. b ' J 

NE! 3! 

i 

1 i 0 

IP J!' 

V-l IME N 120 

;L :J0 

GO 'T u 

1 

i :j0 

•' - 

■ EDITION 

j0y 

PR IN 'i 

" TEMPE " ; Il HE- '50 

i 0 

FUR J 

! Tü NPI Ül-H PR .INT FK 



30 N F I CH “"'30 
4ü DIM fit] MF! CH ) 

30 FOR 1 = 1 Tü l-IF'ICH 4: 1 -=RHIX 1 .V HEX1 I 
OU T I ME -Ü 

30 ECHPKI4I tC H 
y 0i 

J. O0 Eu RE T -1.10' b0Hh:i ■ IF ECHRT 1 TH EN 330 

1 IN J---1 ■ K--HFICH ETRE T 

120 •' 

130 I~J 


150 L--I + ECRRT 

160 IF H-:. 1 =]-i( L ; THEM 210 

1?0 SUSP H' 3 >,R(L *• 

180 I-=I ÊCRRT IF Kl THEM 310 

190 GOTO 15@ 

200 ' 

210 K JH 1 • IF J :-K THEM 100 EL SE 139 
220 •' - 

230 PR INT TIME- 50 

240 FOR K=1 Tü HFICH : PR INT H( I ) : N EXT I 

TABLES A PLUSIEURS DIMENSIONS 


Plus généralement, les tables peuvent avoir plusieurs dimensions déclarées par : 

DIM nom-table (diml , dim2,„.) 

Soit une tabie à 2 dimensions contenant des stocks de voitures, de différents 
types et de différentes usines. 
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STCK(IJ) STCK(1.2) USN 

\ i \ 



STCK{2.1) 

10 

5 




DIM STCK(4,5) 
Réserve une 

Type — 

8 




i 

table de 4 lignes 
et de 5 colonnes 
















/ t t 


Usine 1 Usine 2 Usine 5 


Voit 1 
Voit 2 
Voit 3 
Voit 4 


Documentons la table à l'aide de l’instruction INPUT : 

J g ÇIM STCKX 4 / 5 ;• 

30 FOR TYPE-- 1 TÜ 4 
40 FOR USN*1 Tü 5 

50 PR INT " 3 T OCR / T VPE : " ; TYPE i 11 Ü 3 1 NE " . USN , 

60 LH PU T STCK'-i TYPE , USN 

70 MF Y T USN 

38 ne: t type 

ük 

RIJN 

STOCK /TYPE : 1 USINE : 1 ? lü 
STOCK /'TYPE : 1 USINES £ 5 

STOCK .--TYPE : 1 USINE 3 1 3 

S T CO •••''TYPE: : 1 USINE : 4 ? 7 

S 1 U U K "''TYPE” i USINE : 5 Y 3 

ST CO / TYPE 5 2 USINE 1 ? 8 

STOCK /TYPE : v USINE = 2 ? 

Lorsque la table est documentée, pour connaître le nombre de véhicules d’un 
type, toutes usines confondues, on fait : 


1O0 J. H PU T "QUEL TYPE " * TYPE 

110 

120 TTflL-0 

130 FOR USH n l "lü 5 

1 40 TTflL-TTRL+STÜKX TYPE , USN J 

150 NEXT USN 

160 

170 PR.INT 11 TÜTHL TYPE - " TYPE, TT RL. 
ük 
RIJN 

QUEL. TYPE T 2 
TÜÏHL TYPE- 2 47 



Type 2 


-*• 47 
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Comme pour les tables à 1 dimension, ia déclaration d une table à plusieurs 
dimensions, toutes intérieures ou égales à 10, n'est pas néœssaire. 

Alors qu’une table et une variable peuvent avoir un même nom, plusieurs tables, 
même si elles ont des nombres de dimensions différents, ne peuvent avoir le 
même nom. 

Exemple : 10 DIM fi< ? > ; DIM fe 7 ■ ÿ :■ est interdit 


ERASE nom-table 

Efface une table en mémoire centrale. La place est récupérée par basic et la table 
peut être à nouveau dimensionnée. 



36 I )-3TR$( I > 

40 NEXT I 
50 ' 

60 PR INT FRE< 0 >; FRE< K% ) 
70 EftfiSE h$ 

80 PR INT FRE< 0 ) ; FRE< X$ ') 
90 ' 

100 DIM fi$< 15) 

ru 'o 

12044 59 

12205 200 


d 1 F'ïétis i ûïï 5L 1 


ef face* Fient 


dimension 15 


ERREURS CLASSIQUES 


Lorsqu'une table n'est pas dimensionnée par DIM. elle est dimensionnee par 
défaut avec 10 éléments par BASIC dès qu'un élément de la table est référencé 
en lecture ou en écriture. 

Si une instruction DIM est exécutée après le dimensionnement par défaut, le 
message redimensionned array est envoyé par BASIC. 

10 FK4>=15 •’ d i mens 1 armement i mF' 1 ici te 

20 01 ri H< 20 > 


Il faut dimensionner la table avant de référencer un élément. 

Lorsqu’une table n’est pas dimensionnée explicitement par DIM et que l'on essaie 
de référencer l'élément 1 1 , on obtient le message subscript outof range. 


Il faut ajouter : 5 DIM A(15) 


10 FOR 1=1 TO 15 
20 PR INT FK I); 
30 NE R T I 
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OCCUPATION MÉMOIRE 

Par défaut, les tabies numériques occupent 8 octets pour chaque élément 
(double précision) 

Les tables déclarées entières (%) occupent 2 octets par élément. 


10 PR 1 NI F REC. ÿ > 
Æ DIM H : . 100 ') 

30 PRIM'f FRE.OZO 
run 
12395 
11579 


IR Pki N T i : E m ■ 
..'h DIM FF,- 

:V PF' I h T F RL 1 ' 0 • 
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LES CHAÎNES DE CARACTÈRES 

■ mis ■ LUN ■ ASC ■ STRINGS ■ HLLXS 

■ RIGHTS ■ SIRS ■ CHRS ■ SPACES ■ BINS 

■ MI DS ■ VAL ■ INS 1 R ■ OC PS 

L'affectation d'une valeur à une chaîne s écrit : 

nom de chaîne = « suite de caractères » 

Exemple : 10 NOMS = » DUPONT » 

Les “ « indiquent que DUPONT doit être interprété comme une chaîne de ca- 
ractères et non comme une variable. La longueur d'une cha ne de caractères, 
qui n’a pas à être déclarée, peut varier en cours d exécution du programme 
(jusqu'à 255). De même, la longueur de chaque élément d'une table de chaînes 
peut varier dynamiquement. 

L'espace prévu pour les chaînes est de 200 caractères par dè’aut. clear ‘espace 
chaîne" permet de définir cet espace, print fre(x$j donne l espace libre pour les 
chaînes 

La concaténation (réunion) de chaînes de caractères est réalisée par I operateur 
noté « 4 ». 


1 ÿ NCiN^'T'l IP* INT" 
20 PREM*-"JErlN ,: 

30 NFS=NÜM$+FkËHS 
40 F'F’ThT NF'$ 


F: U N 

DUPONT JERN 


COMPARAISONS 

La comparaison de chaînes de caractères se fait avec les operateurs : 


Les chaînes sont comparées caractère par caractère de la gauche vers la droite 
jusqu'à ce que l'un des caractères d une chaîne soit plus grand que l’autre (code 
ASCII supérieur), C’est alors cette chaîne qui est considérée comme la plus 
grande (“DURAND” est plus grand que “DUPONT"). 

Si tous les caractères sont égaux, les chaînes sont considérées comme égales. 

10 INPUT " 1ER NON ".Ml* 

20 INPUT "2ENE NOM " • N2* 

30 IF N1$>N2* THEN PRINT Ni$- " PLUS G F: RHO l'UE " - N 2$ 

40 IF H 1 %< H2$ THEN PRINT NI* ; " PLUS PETIT !UE " ; N2$ 

S0 GOTO 10 
P UN 

1ER NOM DU R R NO 

2EME NON ? OU POND 

DI IRflND PLUS GF: R NO QUE OUPOND 
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Le programme ci-dessous teste une réponse au clavier. 


10 R$= " " ■ INI UT "REPONSE 01 H- NnH " ; R$ 

£0 IF ft*="ûi. I" THEN PR INT "VOUS R VE T DJI ni H " 

30 IF R$="NmH" THEN F'RIHT ‘‘VOUS RVEZ DIT NON' 

40 IF R$-"" THEN PR INT "VOUS RVEZ APPUYE SUR RET'I IRN > " 
S0 Gui" ij lu 


Remarquez l'initialisation de RS en 1 0 (chaîne vide) ainsi que le test d'une chaîne 
vide en 40 (IF R$ = “ ”). 


LEFT$, RIGHT$, MID$ 


left$. rights, mid$ permettent d’accéder respectivement aux caractères de gauche, 
de droite et de l’intérieur d’une chaîne, 

LEFT$ (CHAINE, longueur à prendre à gauche) 

RIGHTS (CHAINE, longueur à prendre à droite) 

MIDS (CHAINE, position début, longueur à prendre) 

“CHAINE” "longueur à prendre ' et “position début 11 peuvent être des expres- 
sions. Les valeurs de ' longueur à prendre” et de "position début” doivent être 
comprises entre 0 et 255. 

Exemple : 


NOMS - MIDS (X$. 3. 4) 


SX$ - LFFT$ (XS. 2) / 




. — ^ 

MR 

t 



BALU JEAN i 

10 "(TEBMJJ. 

JEH 

fh ■■ 


20 bX$=LEFl $K i 


2 > 

2 caracti 

00 pren$=r:gk 


, 4 > ' 

4 c arc a tu 

40 Nori4=Mii %(.: 

.. 

3.-4 j ' 

4 car a et' 

50 PRïMl £•• $ ; 

h »i 

PREH*, 



Ok 


PRENS - RIGHTS (XS. 4) 


a 9.? u.c:hfc'- 
a droite 

a Partir du. 2e me 


ru. n 

MR JEAN B H LU 


Dans l'exemple ci-dessous, nous testons la première lettre de la réponse : 


10 IHF'UT "REPONSE (OUI -'NON) " R$ 

20 IF LEFT*(. R$, 1 :>="0 ,J THEN GOTO 100 
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Autre exemple : 


10 N0M*= ,l DUB0NLT ,> 

20 FOR 1=1 TO 7 

30 PR INT LE F f$< NOM Et. I 

40 NEtfT 1 

Ok 

ru.ïï 

D 

DU 

DUB 

DUBÜ 

DUBDN 

DUEGNE 

OUBüNET 


Si “longueur a prendre” spécifiée est plus grande que la longueur de la chaîne, 
le résultat est la chaîne elle-même. 

Lorsque “longueur à prendre” n est pas précisée dans mid$. cette fonction de- 
vient équivalente à hights. 

Si “position début” spécifiée dans mid$ est plus grande que la chaîne elle-même, 
une chaîne vide est retournée. 

MID$(CHAINE1 , position début, longueur à remplacer) = 

CHAINE2 

Permet, à partir de position début” dans ’CHAINEI et sur la longueur spéci- 
fiée, de remplacer des caractères par ceux de “CHAINE2". 

10 K $ ' M R B H L U J E H N ‘ 1 

20 :•=:*. .3,4 M xx : 11 

30 PR INT >■% 

ûk 

ru.ïï 

MRk:x;vvJERN 

Attention : ne permet pas l insertion ou la suppression de caractères mais seu- 
lement la substitution 

Si “CHAINE2” est plus longue que “longueur à remplacer", seuls les premiers 
caractères de “CHAINE2" sont pris en considération. 

Si “CHAINE2” est plus courte que “longueur à remplacer, i 1 n'y a substitution 
des caractères que sur une longueur égale à celle de “CHAINE2”. 

LEN (chaîne) 

Donne la longueur d une expression chaîne. 


10 NOn$="[>IJPÜNÏ r 
20 L=LEN( mm 
30 PR INT L 
Ok 


ru. n 
b 
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STRS(X) 

Convertit une expression numérique X en une chaîne de caractères. 


2 u ÎP$':. 2 •' 

20 FRI NT 2$ , LUI : ' 

ük 

ruri 

122: 4 


Remarque : Le premier caractère de la chaîne est réservé pour le signe C est 
un espace pour un nombre positif et un signe ; 1 pour un nombre négatif. 

1 0 F F: 1 H 'I N 1 f.'$< 5 T F' $ •, 1. 22. .• 2 • 1 ' ~ - 1 

VAL (chaîne) 

Fonction inverse de str$, elle donne la valeur numérique d'une expression chaîne. 


10 > 1 2 -2 F F ri ML S 

20 :• :-vhl :>;$:• 

PP INT 2 
ut. 
r u i'« 


Si le premier caractère n’est pas un caractère décimal, un espace, un signe “ + 
un signe ou le résultat est égal à zéro. 


10 F R INT VHL\ ,! i 22 1 ' 
20 PR INT VHL*. "H- 122" > 
20 PR INT ! •' I ■ H I . •. "RI 2 : " :> 
CT 
kUh 

[ tL- O 

H 


ASC (caractère) 

Chaque caractère a un code interne (code ASCII) auquel on accédé par la fonc- 
tion ASC (CARACTÈRE) 

îû 

20 2 ""H SC 1 ' 2$ 

20 PR IN T N 

Ok 

RUH 
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ASC (chaîne) 

Donne le code ASCII du premier caractère d une expression chaîne. 

10 PR INT h SC • "PÛN JOUR” : >06 

Une chaîne nulle comme argument provoque une erreur (Illégal Ponction Calf). 


0 X$- : " 1 P'KliTI FiGL-I X$ ) 


CHRS(X) 

Fonction inverse de la fonction asc, elle permet de générer des caractères ayant 
pour code ASCII la valeur de X. Cette valeur doit être comprise entre 0 et 255. X 
peut être une constante, une variable ou une expression. 


10 FOR C=S5 T Ü 63+23 
PR INT CHR9K C-'. 

30 N EX T L 
ük 
R UN 

REÇUE F GH I ,.!| : -.LMI-IÜr ; 'URS:'[ UVWNYZ 


CONVERSION MAJUSCULES — MINUSCULES : 

En ajoutant 32 aux codes ascii des caractères majuscules, on obtient des carac- 
tères minuscules. 

Exemples : 

10 PR. INT H Gu. 'h :i h- 32 ;• a 


10 IN F’ U T 11 VOTRE NOM • n.i i.u. scu. I > M ■ 1 iüMnr 

20 FOR P-l TO LEN'. NOM'ü '• 

30 PR1NT CHP$( FiUU l'UDï'. NON$, F , 1 > :• ~32 > 
40 NE XI P 
Ük 
r • ij.ïi 

V ü T R FI M 0 M • . nï ;l r i u. £ u. 1 s • : i- ■ • u \ t + 

ROULE T 


chr$(X) est utilisé pour envoyer des “caractères de contrôle" aux périphériques 
(écran, imprimante). 


CHR${8) 

CHR$(10) 

CHR$(13) 

CHR$(200) 


provoque un retour arrière du curseur. 

provoque un passage à la ligne (sans retour en début de ligne), 
provoque un retour en début de ligne, 
affiche un pavé. 
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Exemples divers : 

■ Suppression d’un caractère à droite d’une chaîne : 


10 NÜM$~"Ü UPÜNT 14 
20 X$“LEFT$': NOMS, LE NK NOM® > 
30 RR I HT Y.% 

ov 

r'-un 

DURON 


■ Normalisation d une chaîne à une longueur fixe : 

5 coiïiP let-e P-?.r des- es-P.?ce-=. a droite 
10 HQM$- 11 DUPONT ,J 
20 Y$=LEFT$':. NÜMï+ M 
30 PR INT Y$ ; 

Ok 

ru'i 

DUR OH T 

■ Insertion d’un caractère dans une chaîne : 


10 Z$="HRRflR" 

2 0 X $ ~ " B 1 1 • P -- 3 •’ c a r ■ a c t e r e e t P o s 1 t i c* n 

30 Z$-LE.FT$u 2® , P >+X*+-RIGHT*< Z$ , LE! N 1 '. Z® >~P ) 
4U PP INT Z® 

Ok 

riifi 

RR RE HH 


■ Remplissage par des zéros à gauche : 


10 X=123 

20 X5-R 1 GHT$< 3 TR$< 1 80000 1 +X > , 5 
39 RF: INT X® 

Ok 
ru. n 
00 1 23 


INSTR (position départ, chaîne, chaîne cherchée) 

Recherche la position d’une chaîne dans une autre. Par défaut, la position de 
départ est égale à i : 

i • Si la chaîne cherchée n’est pas trouvée, le résultat est égal à 0. 

- Si la chaîne cherchée est nulle, le résultat est la position de départ spécifiée, 
c Si la position de départ est supérieure à la longueur de la chaîne où s'effectue 

la recherche, le résultat est nul. 
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10 X*= 11 DUPONT. JEAN" 

15 '' 

2 & p-INSTRO<$.- " > •' recherche caractère 

30 NGM*=LEFT*< X* • F'-l > 

40 PR INT NOM* j P 

Ôk 

ru.Ti 

DUPONT 7 


Le programme ci-dessous vérifie si un nom appartient à un ensemble. 

10 E*-" JEAN PIERRE PAUL JACQUES 1 * 

INPUT "Nom " NOM* 

30 F*INSTR<E*.-NGM*> 

40 IF P=0 THEN PR INT "Erreur 11 ■ OOTO *• O 
50 GOTO SU 

Cette séquence d'instructions permet de répondre à une question ‘Mode ?” non 
pas par un chiffre, mais par une lettre (plus mnémonique). 


1 0 1 MF UT 11 Mode < C H , P , R * M .■ N J " ; M* 
15 1 

20 p= INST R 1 " CR PPMM 11 .« M* > 

25 [F F<2 THEN BEEP ’ GOÎ Û 1U 
30 ' 

40 on p-l GOTO 10ü- 200, 300.- 400, ...HO 

50 STOP 
£0 

1O0 PEINT r ‘ l.i 9 ne 100" STOP 
20O PR [NT ,, Li3 ne 200" STOP 


e- Titrer C -HT-,.. 

F os 1 1 1 o m c ? r v •- t «= r • e 
Ch a L ••••ide : 


FOU 


f r F * 


Remarque :Si M$ est une chaîne vide. P est égala 1 .C’est ce qui explique la 

orésence d'un espace dans l’instruction 20 devant CAPRMN . . 

La séquence d'instructions ci-dessous vérifie si un caractère frappe apP* 

bien à un ensemble de caractères autorises : (chiffres plus le suri exe p ). 


10 C**INPUT*<1> 

15 •* . _ , 

20 P^INSTR 1 - 11 Ü 1234567*:*. ' , C* t 
3S IF flSCCM^lS THEN 100 
35 IF p«0 THEN BEER GOTO 10 
40 LIG*=LIG*+C* 

50 PR INT C*- 
60 GOTO 10 
*30 •’ 

100 PR INT • PR INT LIG* 


I e c t u. r e i c r : h. c L r e 

P ci *. 1 1;. j. o ï'i c 3. r ■ $ c t e r c f r p F 1 e 
RËTURN? 

.«i j q i j. f. c -3. r -!?. c t r - e f r •;?. P F' e 
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STRINGS (nombre de fois, chaîne) 

Génère une chaîne de caractères égale à la chaîne spécifiée, multipliée par le 
nombre de fois indiqué. 

10 X*==STRING$', 10.. ,r . 11 > ‘ chai ri «s de 10 

15 ■’ 

30 PR INT X* 

Ük 
ru, 'n 


SPACES(X) 

Génère une chaîne de X espaces. X peut être une expression. 

1 0 X*= " DUPONT 11 +SPFlCE$< 5 >+ " JERN " 

15 ' 

PP INT 
ük 
r u. u 

DUPONT JERN 

Notons que la fonction spc ne génère pas une chaîne d'espaces et n’est utilisable 
qu’avec l’instruction PRINT. 

OCT$ (expression) 

Génère une chaîne qui représente la valeur octale de l’argument décimal . 

10 PRINT ÜCT*< 24 > ~>30 


HEX$ (expression) 

Fournit une chaîne représentant la valeur hexadécimale de la valeur donnée. La 
valeur fournie doit être entière (-32768 — >32767). 

10 X*-HEX*<14> 

£0 PRINT X* 

RUN 

E 

BIN$ (expression) 

Fournit une chaîne représentant la valeur binaire de la valeur donnée. 

10 PRINT BIN*U27> 


1111111 
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Remarque sur les chaînes : Lorsqu'une chaîne voit sa longueur changer, elle 
est déplacée dans l’espace prévu pour les chaînes de caractères. La place oc- 
cupée par l'ancienne chaîne reste perdue jusqu e ce que l’espace chaîne soit 
réorganisé par BASIC. 

Pour éviter ces réorganisations (longues), on pourra utiliser mid$(x$,p,l)-“xx" qui 
modifie la chaîne sans la déplacer. 

Pour les tris, utiliser swap qui échange les descripteurs dans déplacer les chaînes. 
Le programme ci-dessous remplit une table de chaîne. 

La concaténation “basic" - strsm utilise l’espace chaîne et provoque des réor- 
ganisations. En augmentant l’espace chaîne, le temps de remplissage est nota- 
blement réduit. 


lS • 

26 CL ER P 1700 
30 N’- 200 
40 DIM 
50 ' 

60 TIME=0 

70 FOR 1=1 l'Ü N 

80 T*< I ' 1 BRS I Ü “ +STR$< I 1 

90 N EX T î 

10Ü FR I NT "TemPs rem P 1 i s sa 9e : > iNE.-' jU 

110 TIME-0 

120 PR INT FRF.CXÎ.J 

1 30 PR I NT M Te ni P s • M .TI NE- '50 

T g n i P s r ■* • ru P 1 1 i s s- a. 9 e 15- 5 2 
y 

Temps. 3.34 


20 CLERR 3mm0 

T g- m P s r e m P 1 1 s s 3. 9 e- : 1 . 6 3 

1300 

TemPs' 3-34 
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LES EDITIONS 

■ PRINT ■ PRÏNTTAB 

■ PRINT. ■ PRINT SPC 

■ PRINT: m PRINT USING 


■ POSctCSRUN 

■ WIDTH 

■ LPOS(O) 


PRINT expression 

Un simple print d’une constante, variable ou expression affiche la valeur de celle- 
ci puis provoque un retour en début de ligne et un saut de ligne. 


20 PRINT 
Ok 
r uïj 
123 


PRINT, 

L'impression de plusieurs valeurs sur une même ligne peut se faire simplement 
en séparant dans l’instruction les noms des variables ou les expressions par des 
virgules. 


1 0 s 0 M ME -- £00 • M 0 MBRE = 1 0 

20 PR I NT SOMME , NOMBRE .• SOMME.- -NOMBRE 

Ok 

y u/n 

£00 ]. 0 
20 


Mais dans ce cas. l’impression des valeurs est faite selon un format standard 
(colonnes 0 et 14). Les valeurs sont cadrées à gauche. 

Sur l'exemple, la troisième valeur devrait être affichée en colonne 28. Mais le 
nombre d'espaces entre la colonne 28 et la colonne droite de I écran étant infé- 
rieur à 1 4. la troisième valeur est affichée au début de la ligne suivante. 

PRINT; 

Un point-virgule en fin d’instruction PRINT empêche le saut de ligne : les chaînes 
de caractères sont concaténées, les valeurs numériques sont suivies par un 
espace et précédées soit par un espace pour les nombres positifs, soit par le 
signe pour les nombres négatifs. 

10 NOM**" DUPONT" 

£0 PREH$=" JERN r 
38 PRINT NOM*; 

40 PRINT PRE H* 

Ok 

ru.ïï 

DUPONT JEAN 
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10 PR INT H DUPONT "J" " n JEHN" — > DUPONT JE RM 

10 PR INT 123 = 4 56. -785 — > 123456! -785 

PRINTTAB(X) 

La fonction tab(X) permet de positionner directement le curseur à I intérieur d une 
ligne en colonne X, X peut être une expression. tab(O) spécifie la première co- 
lonne. 


10 R» 123 6*456 
20 PR INT F! ThB< 1 5 > B 
Ok 
r lui 

123 4 56 

“456” est affiché en colonne 15. 

Attention : Le curseur ne peut revenir en arrière, Si X spécifié est plus petit que 
la position courante du curseur, TAB ( X) est sans effet, (et LOCATE chapitre 
“L’écran”). 

PRINT SPC(X) 

Avec la fonction SPC(X), X blancs sont imprimés à partir de la position courante : 


10 NQM$~ 11 DUPONT " : F'Rï* 11 JEAN " 
26 PRINT PRS SPC< 3 > > NQM$ 

Ok 
r un 

JE RH DUPONT 


PRINT USING 

Considérons maintenant l'outil d'édition le plus puissant du BASIC : le “print 

USING*’ 


VARIABLES NUMÉRIQUES : 

Sans le print using les valeurs numériques sont cadrées à gauche. Or, c’est 
généralement à droite qu elles doivent être cadrées. 

u PRINT USING «#####»; expression numérique 

Un format défini par une chaîne de # nous permet de cadrer les nombres à droite. 
Chaque # représente ia position d’un chiffre. 



10 X=123 ; Y=1234 
20 PR INT US ING " 
30 PR INT US ING " 
Ok 


####"; X 
####"; Y 



r un 
123 
1234 


Cadrage à droite 


Sans le PRINT USING, nous aurions obtenu des chiffres cadrés à gauche. 

123 

1234 

La partie entre guillemets qui représente le format peut aussi être définie par une 
variable chaîne de caractères : 


10 X= 1 23 : Y= 1 234 
28 FMT$= "####" 

30 PRINT USING F NTstuX 
40 PRINT USING FMT$.;V 
0k. 
ru. n 
1 23 
1234 


□ PRINT USING « # # # #.# # » ; expression numérique : 

Le nombre de chiffres après la virgule qui doivent être imprimés est précisé dans 
le format par le nombre de # après le 


10 X* 123. 456 
20 PRINT USING 
Ok 
ru. ri 

123.46 ) 


"####.##" jX 

2 chiffres après 

la virgule 


On remarque que l’arrondi est assuré automatiquement. 

□ PRINT USING «LIBELLÉ » « # # # #.# # », valariable numérique 

Un libellé peut être inséré dans le format. 


10 SOMMES 23. 456 

20 PRINT USING "Total- ####,## FRANCS " SOMME 
Ok 
ru. n 

Total: 123.46 FRANCS 
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FORMATS MULTIPLES: 

Plusieurs formats peuvent être spécifiés dans une seule instruction. 

1 0 SOMME* 1234 - 567# = TVR* 1 3 

20 PR INT US ING "Total ####■## TVR ### % SOMME, TVR 
Ok 
run 

Total* 1234.57 TVR 13 


Si le format est le même pour plusieurs variables, on fait : 

10 X- 1 23 : Y-456 

26 PR I HT IJS I NG " #### . ##'* : 4 , 

ük 

run 

123.0O 456.80 



Le signe "+" n est imprimé que s’il est prévu dans le programme. 

LO PEINT US ING " ####"; 123 

, ; :0 PR I HT LIS ING "+####"; 123 >+L23 

3U PEINT US ING +####". -1 2 à 123 

Ok 



Un signe en fin de format provoque l'impression du signe 
“ ” à la fin d’un nombre négatif. 


PR 1 NT US 1 MG "####.# ■- " ; - 1 3 . 1 — 1 U . I. - 
PR I NT US 1 NG ,l #### . " .; 1 5 . 1 1 5 .. 1 



2 ,i * 11 placés en tête de format provoquent le remplissage par des 
des positions inoccupées à gauche du nombre imprimé. En 
outre ces 2 spécifient des positions pour 2 chiffres supplé- 
mentaires. 


10 PR INT US ING "**:#### 11 . 123 414-123 

2Ü PR INT US 1 NG n *::*:#### 11 .: 1234 -441234 



2 "$” en tête de format provoquent l’impression du caractère 
à gauche du nombre imprimé. 

1Ü PR INT US ING " $$####" ; 123 — > % 123 

combine les effets et “$$4 
1Ô PR INT US ING "4:4$####"; 123 - ; 444$ 123 
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Si le nombre de positions spécifié dans le format est insuffisant 
pour la valeur à imprimer, le message % est imprimé devant la 
valeur. 


10 PR INT IJS ING " ###*', 12345 


M23 45 


CHAÎNES DE CARACTÈRES 
□ PRINT USING «\ \» ; expression chaîne : 

Le nombre d’espaces entre les “V définit le nombre de caractères à impri- 
mer— 2. 


10 RENAULT” 
20 PR INT USING” 
Ük 

ru ri 

RE N fl U ^ ^ 



□ PRINT USING « ! » ; expression chaîne : 

Imprime le premier caractère d une expression chaîne. 

ï PRINT « & » ; expression chaîne : 

Spécifie une longueur variable de chaîne. La chaîne imprimée est égale a la 
chaîne spécifiée. 


1 U NÜM*= 11 POULET" PREN*= 11 N l C OUÏS " 
E 0 PR I NT us I NG ,J S: ! " i NOM* , PREH* 

i."u, 

P-.JN 

RijULET N 


Programme pour tester PRINT USING 

Le programme suivant permet d’entrer par input a la fois le format et le nombre 
à imprimer. 


10 INPUT 

" For m. 

, Nombre " FUT*, 

20 I NT 

USING 

F MT® • NOMBRE. 

30 jûTÜ 
ni 

m 


ru fi 



F 7 or mat Ni 

or 'ibré % 

■? ####.##, 123,. 456 

U s, 46 




POS(0)-CSRLI N 

Donnent les coordonnées du curseur. 
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10 LüChTE 10,8 
PR 1 NT "NICOLAS" ; 

30 PR ï HT FÜ3( 0 ) > USRL1N 

ük 

rur j 


N I COLAS 17 8 


WIDTH largeur 

Détermine la largeur d édition à l'écran. L’affichage est centré. 

10 WIDTH £0 

Par défaut, la largeur est 37 en “SCREENO" et 28 en SCREEN1 

EDITIONS IMPRIMANTE : 

Pour afficher des résultats sur imprimante utiliser lprint au lieu de print. 

Pour éditer sur imprimante, on peut également ouvrir un canal vers l'imprimante. 

10 OPE N "LPT ” FOR QUTPUT RS # 1 
20 RR INT #1 , "COUCOU" 

30 CLOSE# 1 


LPOS(O) 

Fournit la position de la tête d'impression de l’imprimante. 


ÉDITIONS IMPRIMANTE/ÉCRAN : 

Un même programme peut aiguiller des résultats vers l'écran ou l'imprimante. 


10 

I N PUT "El 

■P fl N OU 

! INF 

PRIMANTE 

15 





20 

IF 

ÏHEH 


'CRT ' ,r 

30 

if 

THEN 

F$- 1 

'LP T " 

40 

t 




r -.0 

1 ’l 

OPEN F$ F 

OR ou l 

PUT 

RS #1 

r,U 

70 

.■Tl 

► : 

1— *• 

BLABLA" 


80 

CLOSE #1 




90 

ijUT u 1 y 





Si l’édition se fait par l'intermédiaire de "crt : \ “PRINT, sépare les valeurs par 
14 espaces. 
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Le programme ci-dessous affiche sur imprimante la liste des codes ASCII entre 
32 et 128. 


10 ■' Ecfitio 

ï\ des codes ASCII 


1 



3 y FUR O 32 

TÜ 63 


40 LFR 1 HT 

J j L'HRÿ'i G ) .> 


30 LPRINT 

2’.' L’HRSr u +32 ) 


60 LPRIHT 

J +6 4 .i CHRSi'i! C+64 1 


70 NEXT C 




64 i? 

96 

33 ! 

6-3 R 

37 •!?. 

34 fl 

66 B 

38 b 

31 # 

b 7 C 

S 9 C 

36 $ 

6:3 D 

1.00 d 

■Z 1 f « 

63 E 

101 e 

3* <y 

70 F 

102 f 

33 ■' 

71 G 

103 9 

40 ( 

72 H 

104 h 

41 ; 

73 I 

1 05 1 

42 

74 J 

106" ,i 


DÉCOUPAGE I A 
DES PROGRAMMES I 4 


LES SOUS-PROGRAMMES 

■ COSUB... RETURN 

GOSUB RETURN 

Il est fréquent qu’une même séquence d’instructions soit utilisée plusieurs fois 
dans un programme. Un sous-programme permet d écrire une seule fois cette 
séquence qu'il suffit d'appeler de différents endroits du programme par gosub n° 

D’INSTRUCTION. 


1 fl fl«3Q B 5 = 1 0 

k!0 y-Fi+B 
30 P=*R*B 

50 PRI NI H B .■ 11 Somme ■ 11 .■ S .■ h P r o d u 4 1 1 1 1 
60 •’ 

70 •’ 

9U • B ”5 _ 

■ 100 S“h+e 

.110 F -R:*: El 

l! 3 0 P P I NT R ,i "SQiïfffig : 11 3 M Fr üdu. 1 t 




• Pj 


Même séquence 
d'rnstructions 


20 GOSUB 500 provoque un branchement du programme en 500 (comme le 
ferait GOTO 500) mais l'instruction RETURN (RETOUR)) placée à latin du sous- 
programme provoque un retour automatique après l’instruction qui suit gosub 
500, c’est-à-dire ( instruction 30 sur l’exemple. 

Pour le 2 e appel du sous-programme en 1 00, le retour se fait en 110. 
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_ j. 


ltl H 

~30 : B- 

10 


ru. ti 






20 G 

iiSUB 5 

00 “ 

< 

De b' 

Xt 3 
10 

ni. 

AS“P ro 
:■ om m O ; 

9r 

4 

i?. fl l 'E* 

0 F '-n/jn i t . 9 kl i 

oü 

40 •' 


^ / 

/ 

F i m 

sou. 

" 

"P ro 9r 

' -3. |ï‘i 

fl O 

90 M 

-20 = B= 

:5 

j 

D e b i. 

1. 1- £ 

0' 

,i.£“ P ro 

'91- 

■:?. lYlf'irr’ 

100 

bOSUB 

5 MH x - 



5 


"•fi’Hi’i Ç ■ 

-, i. 

iZ- 

F'r g du . 1 1 ; 1 00 

110 

J. 'ij Ci 

LHD *+ 


..N 

F i vi 

fik 

3 0 1.1. 

" 

-P r o 9 r 

am 

me 

500 

510 

PR INT 

"De- b u 

t s 

O U. 3 ~ 

-p ro 

9 r 

• ?.rûnie" 


t 

Pi 20 

F 








i 

J o ki 

PR I NT 

R; B.; " 

S cru 

rue 1 

» . • 

"F 

'r odu.r 

b • f 

• . p i 

• r i 

540 

► ■R INT 

"Fin 

■=. 0 u 

L - F I- 

o9r 

.:?r. 

1 i > l " 


i 

i 


T! 56 h ET U RM 


r~Relour automatique 
I à l'inslruction qui 
I suit GOSUB 


On remplace par 
un sous-programme 


Un sous-programme peut lui-même en appeler un autre. 


Les adresses de retour (90 et 540 sur l'exemple) sont gérées par Basic à l aide 
d’une pile. 


50 
60 
70 

80 GOSUB 500 
90 
100 
110 


500 

510 

530 GOSUB 1000 

540 

550 

560 RETURN 


1000 

1010 

1030 

1040 

1050 

1060 RETURN 



Pile des 
adresses de 
retour 


Les instructions sont exécutées dans l'ordre suivant : 


50 60 70 80 
500 510 520 530 
1000 1010 ... 1050 1060 
540 550 560 
90 100 


Début du 1 er sous-programme 
2 e sous-programme 
Fin du 1 (,ï sous-programme 
Retour au programme principal 


N’essayez pas de sortir d un sous-programme par GOTO, ni d entrer dans un 
sous-programme par GOTO Les sous-programmes sont utilisés non pas seu- 
lement pour économiser de la place mémoire, mais aussi (et plutôt) pour les 
raisons suivantes : 

□ Par souci de clarté : le "‘programme principal” est plus court. 
i"! Les sous-programmes permettent éventuellement de répartir la programma- 
tion entre plusieurs programmeurs. 

u La mise au point se fait sous-programme par sous-programme. Ainsi on pro- 
gresse plus sûrement dans la mise au point de l’ensemble du programme, 
u Dans le cas où la même séquence d'instructions est répétée, une modification 
dans cette séquence doit être faite aux différents endroits où elle a été écrite 
(fastidieux). 


DEC (HT AGI 1)1 ■> PR( KiRAMMHS 77 


u Lorsqu'un sous-programme est modifié, la "zone d’intervention est bien dé- 
limitée ; tout le programme ne risque pas d'être remis en cause 
1 Les sous-programmes ont aussi l’avantage, lorsqu’en cours de mise au point, 
il faut “restructurer" le programme, de permettre une certaine souplesse ; 
l'ordre d'appel des sous-programmes est à modifier mais ceux-ci ne changent 
pas, 

n Plutôt que d'insérer une nouvelle séquence d'instructions correspondant à 
l’ajout d’une nouvelle fonction, on peut écrire un sous-programme qui est ap- 
pelé quand nécessaire. 

Les avantages des sous-programmes sont donc multiples. Aussi n' hésitera-t-on 
pas à en faire un usage abondant, même lorsqu ils ne comportent que quelques 
înstructions. 
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LES BRANCHEMENTS 
MULTIDIRECTIONS 

■ ON X GOTO... 

■ ON X GOSUB 


ON X GOTO n° lignel , n° Iigne2 

Suivant la valeur d une variable (ou d'une expression) : 1.2,3,... il y a branche- 
ment au n c de lignel , n ; Iigne2. n° Iigne3,... 

S'il ne correspond pas de numéro de ligne à la valeur de la variable, c'est l'ins- 
truction qui suit "on goto" qui est exécutée. 

113 INPUT 11 Votre cmc*î.< Cl,- 2 *•$)” | 

20 •' 

36 ON CH GOTO ICC 366,- &0Ü 
46 •' * t X 

S6 STOP CH H 2 CH 3 i 


100 PR INT 11 CHOIXl * 

126 S TOP | 

A 3 6 . iZ 

[306 FRI HT 11 CHOIX*. ' | 

; 320 S TOP 

336 •' 

; 5Ô6 PRINT 41 CHOIX 3 ' ” 
15 20 STOP ; 



\ 


* 

X - 1 


ON v GOTO • 

\ 


\ 


A 

X = 3 


Ok 

ru.n 


r 

T 


Votre 

CH0I> 

Breafc 


choix ( 1 X. ,■ 


in 336 


! «£. 


X 2 


ON X GOSUB n° lignel , n° Iigne2,.. k 

Fonctionne comme on x goto, mais dès qu'une instruction RETURN est rencon- 
trée, il y a retour automatique après l’instruction on x gosub... 


1 6 IriPIJT " Vot r e chû î x >'. 1 , £ , 3 CH 
26 •' 

30 U N C H G 0 S IJ FJ 1 6 0 3 0 0 5 0 6 


40 PRINT "S 

m i te " 

50 L 

;0TÜ 10 


100 

PRINT H 

CHiJ I X 1 ;l 

120 

RETURN 


i j y 

300 

PRINT 11 

UNO I :<2 " 

32G 

RF: T U R N 


: ;30 



500 

PRINT 11 

CHÜITJ" 

520 

i ii. 

RETURN 


L'f-. 

ru. n 



Votr 

e chOl 

T l 2 • 3 


C'HGI '2 

Votre choix (1,2 


LES FONCTIONS 5 


LES FONCTIONS ARITHMÉTIQUES 

L argument X peut être une constante, une variable ou une expression numé- 
rique. 


ABS(X) 

ATN(X) 

CDBL(X) 

CINT(X) 

COS{X) 

CSNG(X) 

EXP(X) 

FIX(X) 

FRE(O) 

INT(X) 


Fournit la valeur absolue de X : 

100 PRINT ABS( — 35) *- 35 

Donne en radians l'arctangeante de X 

Convertit X en un nombre double précision (avec 16 digits). Elle 
permet aussi d'effectuer une opération en double précision : 

100 FOR 1% = 1 TO 10 : PRINT 1/CDBL(I%) : NEXT 1% 

Convertit X en un entier avec arrondi : 

100 PRINT CINT{ 1.6) -► 2 

110 PRINT CINT{ -1.2) «- -1 


Donne le cosinus de X exprime en radians. 

Convertit X en un nombre simple précision (6 digits) ■ 

100X = 1234.56789123 : A - CSNG(X) : PRINT A ► 1234.57 


Donne l’exponentielle de X. 

Supprime les chiffres après la virgule : 

100 PRINT FIX{ 2.2) 2 

110 PRINT FIX{-2.2) ► -2 

Donne la place libre en mémoire centrale (l’argument 0 n'est pas 
utilisé) 


Donne la partie entière de X avec arrondi : 

100 PRINT INT( 2.2) — -► 2 

110 PRINT I NT (—22) — ^-3 
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LOG(X) Fournit le logarithme (naturel) de X 

SGN(X) Donne le signe X : on obtient respectivement -1 , 0 ; -Ht pour les 
valeurs négatives, nulies ? positives. 

SIN(X) Donne le sinus de X exprimé en radians, 

SQR(X) Donne la racine carrée de X, (X doit être positif) 


TAN(X) Donne la tangente de X. 


SWAP élémentl , élément2 

;i. -J D ' 

C K R i N I ’ ■ 1 i 
4-i FDHP a, V 
CM 

i . 1 . I "t 

j. 

•’ Î --1 


Les valeurs de “élémentl ” et de "élément2” 
sont échangées. Ces éléments doivent être 
des variables ou les éléments de tableaux 
du même type. 



Pour les variables chaînes. SWAP échange les descripteurs de chaînes seule- 
ment, évitant ainsi les réorganisations de l'espace chaînes 


! kS I ONCTIONS Si 


LA DÉFINITION DE FONCTIONS 


En plus des fonctions internes (telles que son. sgn. int, etc ), l’utilisateur peut 
définir ses propres fonctions par : 

DEF FNXX (X,Y,Z,...) = EXPRESSION (X,Y,Z,...) 

où XX représente un nom choisi par l'utilisateur pour identifier sa fonction (les 
règles d’appellation sont les mêmes que pour les variables! et X,Y,Z,... I û s ar- 
guments de la fonction. 

Plus tard, cette fonction sera appelée parle programme avec les valeurs reelles 
des paramètres. 

Exemples : 

■ FONCTION D’ARRONDI 


10 

DEF FNflRC X 

“INT->;+.5 > 

23 

H- 1 23 . 6 


30 

B *=345. 2 


40 

PR INT FNRR's 

R ).• FNftRc B > 

Ok 



ru v 

i 


124 

345 


■ FONCTION MAXIMUM DE 2 NOMBRES 


1 0 DEF FHMXC X , V >=-( < x >y >*>;•+>:. x-:: = y rr > 

20 R= 25 ; B«28 
30 PR INT F NM K*; fl.. B ) 


■ FONCTION D’ARRONDI AVEC DÉCIMALES 

1 0 DEF FNRFK K >“ I NT( N* 1 80+ . 5 t * i8 

20 V=FNRR< 12.456 > PR INT V 
Ok 
r un 
12-46 

Une fonction ne peut être écrite que sur une seule ligne de 255 caractères au 
plus. C’est de préférence en tête du programme que sont écrites les fonctions de 
façon à être interprétées avant qu’elles ne soient appelées. 


NOMBRES ALÉATOIRES 

ET HORLOGE 



LES NOMBRES ALÉATOIRES 

Les nombres aléatoires sont essentiellement utilisés pour les programmes de jeu 
ou d éducation. 


RND(X) pour X > O 

Fournit un nombre aléatoire compris entre 0 et 1 (1 exclus). 


lu FOR N*1 T Cl 3 
20 PR I HT RNIX 1 :• • 

30 N EX T N 

Ok 

RUN 

, 5352 1 343994623 . 1 0658628050 1 53 


Lors d'un second 
"RUN la série est 
identinue 


.76537651772823 

ük 

RUN 

.59521943394623 

' ?£ L‘ ,-j “7 £ 1 *7 *7 O :■ ■ J 


1 0658628U5Ü ; 


Pour obtenir des nombres entiers entre 0 et 9 par exemple, il faut : 
u multiplier le nombre obtenu par 10 

□ prendre la partie entière du résultat, avec la fonction iNT (X) 

lu F ÜR H-l 1 0 4 
2Û kX-RNC".. 1 > 

30 Y--X:f:lu 
4U Z- INT 1 - ï > 

50 PR INT X, V; Z 
60 NEXT N 
Ok 
R UH 

.5352194 3 9 3 4 6 2! 3 8 . 3 5 £ 1 3 4 3 5' 4 6 2 3 5 
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H L U t> J ; “! b 2 U L 1 S M 1 j ÿ [ . 0 K S !j 0 £ , M j ► j | f ;‘j I • \ 

. i b * j 3 r b ■ j 1 1 r' ûi! y i « b b "J r' b 5 1 f 1 fiz'B,:-' .*■ 

Pour obtenir un nombre entier entre 1 et 1 0, il suffit d'ajouter 1 


J.0 FOF N- 1 10 

Ou FT : ' IN r INlv RN[> ! -T 10 + l , 
30 N EX T N 
Ük 
FvUb 

b 0 8 y S 2 0 y y 


RND (X) pour X O 

X négatif initialise une série aléatoire qui dépend de la valeur de X Cette série 
est toujours la même pour une valeur de X. 

5 X-RNLX -7 > 

10 F Ü R N=1 TÜ b 

20 PR INT I NT (. RNP< 1 >*10+1 ); 

30 H EX T N 
Qk 
R U N 


RND (0) 

Fournit le dernier nombre aléatoire. 

1Û FOR H-l T0 3 

20 PR INT RNPU ) 

38 H EX T N 

35 PR INT RND 1 - 0 ) 

Ük 

RUN 

. 5 3 5 X 1 3 4 J ÿ 3 T b 2 J 
. 10658 € 2 8 0 5 û I 5 3 
- 76597 65 1 772823 
. 76 53 F 6 5 1 772*23 


Pour obtenir une sérié aléatoire différente à chaque “RUN” 
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JÛ X--RN IX -1 I ME 

r.er-'jt 1 -3 le J. boire 

.10 F'IJF: II- 1 ru 
;:lû f-PINÏ RNL" 1 ;• 
4 0 ml-:xt K 
Lîl*. 


r j.m 

. t« 4 i 'i! j •:> i;: - i::' 1 b y 4 
4 yf;1 • Z'2 - 7 ■*' r S :;.H S l> : 4 


'.'.’l I 

, 4'rH40:-ri0; : . j *£ 4 £ ^ 
» r>. • !•' I •■4- 


1 ■ *1 i t i -3 1 I U Vit: 
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L’HORLOGE 

■ TIME ■ I NIER VA I. OIT 

■ ON INTERVAL ■ INTF.RVAL STOP 
GOSU13 

■ INTHRVAL ON 

TIME 

La variable time donne le temps écoulé en 1.50 seconde. 

10 TIME-e 

£0 FOR TP*1 T "j 2000sNEXT TF' 

30 •' 

40 PR INT "JE "RhVmILLE POUF: VOUS DEPUIS • " TIME 06.: " SECONDES" 


La valeur de time est comprise entre 0 et 65535. Elle ne peut mesurer des inter- 
valles de temps supérieurs à 65535/50= 1 31 0 secondes 

ON INTERVAL=temps GOSUB n° ligne : 

Définit le numéro de ligne vers lequel il y aura périodiquement débranchement 
du programme. Le temps est spécifié en 1 50 e de seconde et doit être inferieur à 
65535. 

INTERVAL ON : 

Valide la déclaration faite par on interval gosub. 

INTERVAL OFF : 

Annule interval on. 

INTERVAL STOP : 

Désactive la validation mais l’interruption est mémorisée jusqu à ce que interval 
on soit exécuté. 

Le programme suivant affiche l'heure toutes les 4 secondes. 

lu CL S 

20 ON INTER VRL*200 GOSUB 120 ' toutes- les 4 secondes. 

30 ' 

40 INTER V AL ON ' validation I HTERVRL 

50 ' 

go locate: i i 

70 B=E+1 

80 PR INT "BuUCLE " .. B 
90 GOTO 60 
i 00 END 

110 ■' s û u s- —P r o 9 r s. iïi r* e I N T E R V RL 

120 T*T+1 

1 30 LUCFlTE 10.. lÿ 

1 40 PF: l NT T'*: 4 - 11 SECONDES " 

.150 RETURM 


NOMBRES AI J7ATOIRLSl\T HORLOGE 87 


Ci-dessous, l’opérateur doit répondre dans un délai de 12 secondes. 


lü U LS 

20 ON INTER VftL-50 GOSÜB 140 ■ toutes G : s = pcr. nd*^ 

30 •' 

40 INTERVHL ON •' v.? il dation INTERVflL 

50 ' 

60 LÜCflTE 1 .■ 1 
70 PR INT M RePûïide-zCO^N>: 11 
80 1 

90 R$=INKEV$: IF R$< >" " THEN 120 
100 IF T >12 THEN PF: INI "TROP T R RD 11 : END 
116 GOTO 90 
120 END 

130 âous-Pro9rarrir.'ie INTERVRL 

140 T=T+ 1 

150 LÜCflTE 10,10 

160 PR INT T; "SECONDES" 

170 RETURN 



L’ACCES A LA MEMOIRE ET H 
ENTRÉES-SORTIES DIRECTES / 


L’ACCÈS À LA MÉMOIRE 


■ PEEK ■ VP EF K 

■ PC) K F. ■ Y PO K H 

■ VA RP I R ■ VDP 

■ BASE 

PEEK (adresse mémoire) 

Fournit en décimal !e contenu d’un octet de la mémoire, 





POKE, adresse mémoire, valeur 

Range une valeur exprimée en décimal (0->255) à l’adresse spécifiée. 


P o v * 5 000 0 , 65 ‘ 6 5 d •?. Tl -B 50 0 0 0 

P 1 r i Ts t p e* k ( 5 0 0 ÿ Ü ' •?. f f i c h e L e c i j n t ç ti u. d e 5 0 0 ü y 


50000 



Naturellement, il faut que la mémoire adressée soit modifiable. 
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Le programme ci-dessous affiche le contenu de la mémoire. Les caractères dont 
les codes sont supérieurs à 31 sont affichés directement. 

10 INPI J T 11 ADRESSE DEBUT "..RM 
20 IN PUT "COMBIEN D ' OCTETS " : N 

30 ' 

40 FOR I=RM TÜ HM+H 

45 IF I-12*INT< 1/12 >*0 THEN FR INT PR INT I ; TRES 7 ), '* " , 

50 X=PEEKX I > 

60 IF X- >32 THEN PR INT CHRSOO; ELSE PR INT US ING "####" ;X; 
S0 NEXT I 


49140 


49152 

0 27P 10 0 "RDRE 

49164 

SSE DEBUT 

49176 

RM @7P 26 0 "CQ 

491 38 

MBIEN l'- OCTE 

49200 

TS J, ;N 0?P 30 0 ; 

49212 

0QP 1 . 0 IR 

49224 

M y RMN 0yp- 

49236 

0 I 15 12C 

49243 

I 15 12) 17 z = 

49269 

I j < 24 >; " * 'M 

49272 

0P2 Ô XCI 

49234 

) y$F'< 0 X 

49296 

1 5 z < X > 

49303 

, .ii "## 

49320 

##" iX: 0Û.PP 0 

49332 

1 0 0 0 SRME 


32460 

R 

1 

9 0 

3"bV 

32472 

■ M 

3 y 

5 te Pi 0 


32434 

: V 

ers i oïi 

1.0 13 


32496 


10 

0MSX BASIC 


32503 


0Cor 

y ri 9ht 1 


32520 

: 3 

y U b y 

•"1 i cro 


32532 


e t t. j 
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VÀRPTRfvarîable ou table ou n° fichier) 

Donne l’adresse mémoire d’une variable, d’une table ou de la mémoire tampon 
d’un fichier. Si l'adresse obtenue est négative, ajouter 65536. 

Pour une variable numérique, la valeur est représentée à l’adresse obtenue sur 
2,4 ou 8 octets suivant le type de la variable (%,!,#). 

Le nom de la variable est représenté par les 2 octets avant l’adresse obtenue. 
Ci-dessous, nous recherchons l'adresse d une variable entière. 

i.0 RH^-128 

.,::0 hD— .'HRPTRv. HH4 .:■ • IF RD< u THEN RD — HD +655 36 ! 

30 PR INT "RD-' " .• RD 

5fi FOR I-HD-2 TÜ RD+1 : FRI NT PEEKC I ) ; '• NEXT I 

HD- 49252 
65 65 123 0 
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Ci-dessous, nous montrons que la représentation interne des variables double- 
précision est du type Décima! Code Binaire (DCB). 

En effet 99 DCB 153 binaire. 

10 H H - 9 3 9999 9 3 # 

20 HL r --VhRP TP7. HH j 

30 i F Fi l> < 0 f H E N RD - H D + b5 b 3b! 

4 ü FOR 1 «RD 3 l'U RD+ F : PR I H T PEEK s i . : NlîXi 1 

8 65 65 72 153 dS2X 153 133 U 0 0 


99 décimal 


Pour obtenir l’adresse d’implantation d une table numérique, il faut rechercher 
l’adresse de l’élément 0. 


lÿ DI H BB'j: 2 :• 

20 BBtt© >=123 
3G BB’iï. 1 >=64 
40 BBV. 2 >=32 

50 HL'-VHRPTR< BBX. ü IP MD : . 

60 PP INI' • RD 

70 F U R I “RD IU hD-l 1 6 

80 PR INT F'EEK : 1 

90 N EX T 1 

10O PR INI 

1 J y PP I NT " 3 . d » • 1 ; VHRPT F:-:. BBT- 


0 ÿ 0 Z 36 66 9 H 

*d= 49368 


y | ' H F. N H i> l : - 0 + 6 3 3 3 1 


i 



i 3 Û 1 2 6 P» 34 

V 


Dimensior 



Sur l’exemple ci-dessous, nous recherchons l’implantation de la chaîne “AAA$- 

« BASIC »”. ^ . 

A l’adresse donnée par VARPTR, nous trouvons le descripteur de la chaîne 

indiquant la longueur et l’adresse de la chaîne. 


10 HH$ - " E/HS tC" 

70 hD—VRRF'TR 1 -! FiFi$ •' : 1 P RD-.0 T R EH RI/ "RD +355 3 6 ! 
30 PP i NT "RD™" RD 
40 PR INT "D3-" , 

50 FOR I -R[ 2 70 BD +, 2 ' PR I NT REEL.'' 1.', : H EXT I 

60 ' 

7Ü hCH-PëEK 1 - h [ 1 + 2 •' * 2 5 6 + P E EK ■■ RD+1 > 

80 •' 

ÿÿ ■ - - ~ — ' — e d 1 1 - i 0 ri d 1 3 . c h 3 . 1 r* ê 

100 PR INT "HCH= " • lïCH 

110 FOR I-hCH T O HCPOPEEKX RD 

I2ü PR INT PEEKa>.i 

130 N EXT i 

RD- 4942 b 

DS 6 5 65 5 10 138 R CH - 48162 


6 6 6 5 


34 
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AD 



A 

A 



Nom de 
!a variable 


Longueur 


AAS 


ACH - . basic”! 


A chaque fois qu’une < haîne change de longueur, elle est déplacée dans l'espace 
chaîne. 

15 AAS = AA$ -h X 
140 GOTO 15 


L adresse ACH de la c . haîne change de valeur à chaque passage dans la boucle. 
Une table de chaîne est organisée ainsi : 


AASi ) 


AAS(O) 

L 

i 

. DUPONT 

AAS(f) 

L ; * 

T MARTIN 

AAS (2) 

L ; " 

. -j 



i 





VARPTR(AA$(0)) donne S'adresse du descripteur de la table de chaîne Ce des- 
cripteur occupe trois octets par élément. 


Mémoire écran : 

La mémoire de récran est indépendante de la mémoire centrale, On y accède 
par vpeek et vpoke (au lieu de PEEK et POKE). 


V U s \ 1 A Ml MOI U I- I i IM Kl I S Si Rf'lf s H! K I T 1 1 S *>} 

BASE(n) 

Fournit les adresses des differentes parties de la mémoire écran. 


fn“ 





SCREEN 0 



0 

Buffer texte (0) 

20 

FF J'N : "lo.hi-iCËU 

i 2 

Générateur de caractères (2048) 

• « 

TM b 


SCREEN 1 

L . 

1. i 

5 

Buffer texte (6144) 

J 

hl 

204b 

6 

Table des couleurs (8192) 


r-j 

! 7 

Générateur de caractères (0) 

4 

”*1 

8 

Affectation des sprites (691 2} 

f£* 

_l 

6 [ 44 

9 

Dessin des sprites (14336) 

6 

■319::: 


SCREEN 2 

h 

•391 2 

1 433b 

b 14'-î- 

10 

Buffer texte (6144) 

'••H 

i o 

11 

Table des couleurs (8192) 

i: 

blCb 

. 12 

Générateur de caractères (691 2) 


M 

! 13 

Affectation des sorites (6912) 

1 2 

vj | :• 

14 

Dessin des sprites (14336) 

1 4 

1 4 33c. 




* c: . 

2 04b 


SCREEN 3 

IF 

0 

15 

Buffer texte (2048) 

1 •• 

i l'z 

0 

f& 1 2 

: 17 

Générateur de caractères (0) 

! i* 

1 4 f. 

18 

19 

Affectation des spntes (6192) 
Dessin des sprites (14336) 




Ci-dessous, nous éditons la partie de la mémoire contenant la définition des 
couleurs (32 octets). 

10 SCREEN 1 
20 CE=4 CF-lü- 
30 COLOR! Ct l.F 

40 FOR M=BR3E J - b • ÎC BRSEC F- : + 

50 PR I HT VF-EEKMU 

60 NEXT M 

10 SC RE EN 1 

20 CE=4 CF- 1 5 

30 COLOR CE CF 

4ÿ FClF! M-BRiEr t- - ! 70 oh 



Le code 79 représente : couleur écriture * 1 6 -i- couleur de *ond 



94 I BASIC MSX 


VPEEK(adresse) : 

Donne ie contenu dun octet de la mémoire écran. 


10 SC R E EN ü 

P h: INT yPEEK.-:; 236$ > 

R U N 




Le contenu de la mémoire 2568 donne la valeur 32 qui correspond au premier 
des 8 octets représentant le caractère A (voir chapitre “Redéfinition des carac- 
tères"). 

VPOKE adresse, valeur 

Modifie le contenu d un octet de la mémoire écran. 

En frappant : 

SÜREEN 0 
VPOKE 1 50 ■ 65 

vous voyez le caractère A M s'afficher au milieu de l'écran. 

Si vous frappez : 


VPOKE 2568,0 


le caractère A 1 est modifié. 

VDP(n) 

Permet de lire les 8 registres du Vidéo Display Processor. 

10 F OR N-0 Tu 7 PR INT VDFT N J : N EX T N 
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ENTREES-SORTIES DIRECTES 

■ INF 

■ OUT 

■ WAIT 

INP(n° port) 

Lit directement une entrée de périphérique. 

“n° port” doit être compris entre -32768 et 65535. La valeur lue est comprise 
entre 0 et 255. 

OUT n° port, valeur 

Envoie une valeur vers un périphérique. La ligne ci-dessous allume la lampe de 
la touche "caps". 

tü NU T ( ii'HRR ) • 1 HP'L&Hrlril HK' r HBh 

WAIT n° port,octet1 ,octet2 

Suspend l’exécution du programme. L'exécution se poursuit lorsque(entrée port) 
AND (octetl)oO 

Si “octet2” est spécifié, un xor modifie l'entrée avant I opération and avec 

’octetl”. 
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LA MISE AU POINT DES PROGRAMMES 

■ CTRL/STOP ■ TRON 

■ CONT ■ JROFF 

■ STOP 

Les programmes ne fonctionnent pas toujours “du premier coup", basic envoie 
des messages pour certaines erreurs (de syntaxe par exemple) mats ne détecte 
pas les erreurs de logique. Pour les cas les plus délicats, il faut suivre le dérou- 
lement du programme étape par étape, ce qui est relativement simple en basic. 

CTRL/STOP 

En appuyant sur ctrlstop nous interrompons l'exécution du programme. Nous 
pouvons alors visualiser les valeurs des variables en mode immédiat. 

CONT 

L'execution interrompue peut être poursuivie en frappant CONT (continue). 

Exemple : 

Le programme ci-dessous effectue la moyenne de plusieurs notes. Nous avons 
commis (volontairement !) une erreur. En 50, au lieu de TNTE = TNTE + NTE, 
nous avons écrit TNTE = NTE. 
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ic fi-HT -u 
i'j r-iN i E 

30 N I h; ::: U i N Pl J I' "Nnhf ' • I I f E 



Remarque : Les instructions 1 0 et 1 5 qui initialisent les valeurs de TNTE et NNTE 
à zéro ne sont pas indispensables puisque RUN les initialise à zéro. Il est cepen- 
dant plus prudent de le faire dans un programme plus important où TNTE et 
NNTE pourraient déjà avoir été utilisées dans une autre partie de programme et 
avoir une valeur non nulle. 

Exécutons à nouveau le programme et interromponsde après avoir entré la pre- 
mière note. Nous pouvons visualiser en mode direct les valeurs des variables 
NTE. TNTE et NNTE. 


Visualisation des 
valeurs en mode direct 


MJ. Ti =• 

Note i : - l r 5 7 

Noie V -* 

Br e ai; in JÜ 
Ük 

f- ri ut t ri t % fi r i te y 
1 r : ; 1 


Or appuie sur CTRL STOP 
pour interrompre 


Pour l'instant, rien d anormal. 

Frappons CONT pour continuer l'execution du programme et interrompons à 
nouveau le programme après avoir entré la 2 e note : 


Le cumul pour TN r - 
n'est pas effectué 



Brtj.k i ri 30 
Ük 


On appu e à nouveau 
sur CTRL STOP 


Pt I fit t/ Ü t<!Ü' ' :"l il t *di' 

T,"; 

ük 


Nous nous apercevons en regardant la valeur de tnte que le cumul des notes 
n'est pas effectué. 









TliAITKMEM l)i : .S ERREURS I W 


STOP 

Au lieu d'appuyer sur ctrlstop nous aurions pu placer une instruction “stof en 
65 . 


On peut voir à chaque 
passage dans la boucle 
comment évoluent les valeurs 
des variables TNTE et NNTE 


\\ a t i i » i 2 : 1 1 1 

15 1 


CÜNT ^ 

Note ? _13 7 

Break in 65 
Ük 

PR INT TNTE, NNTE 
13 


Ajouter 

cette instruction 


65 STOP / 

RÜN 7 
Note T 
Break in 65 
Ok 

DD TM T TM T P . KJ MT P' 


En cas de “bouclage” de programme : 

Lorsqu'un programme ne s'arrête pas, appuyer sur ctrlstop, frapper TRON puis 
CONT. 

On peut ainsi localiser la partie du programme où la boucle s’effectue. 


to j>jl 
20 ‘ 

jü 1--I + 1 

4U 1F- 1 -5 THE N 70 
Sm GüTij 40 
60 ■’ 

7 O EN F.- 1 
Ük 

pON 7 

or 

Pi in 

l 1 0 JE 2 O J E 3 0 J L 4 O *1 E 5 O J E. 4 O JH. 5 Ü J t; ■ 1 U J IL 5 . UE 
4 0 J C 5 O JE 4 O J L 5 û J t! 4 LUE 5 O J E 4 0 J L 5 U J L 4 i: JIE5 
Ü JE40 JE jO JL4Ü JL50 JE40JE50J1: 4 0 JL 5 0 . JE40 
IL S0JE4ÜJE50 JE 4Ü JC 50 JL^Ü JL5Ü JE 40 JE 0 J 
1 4 0 JE 5 Ü J E 4 Ü J E 5 Ü J L 40 JE5ÜJIE40 JE 5H JL 4 1 1 JE. 
50JE4ÜJ 
Br e : ï.k i n 40 

s U 

T ROP F * 


TRON-TROFF 

Les commandes 1 tron m et "troff" peuvent être inclues comme instructions dans 
un programme pour visualiser les numéros d instructions dans la partie suspecte 
du programme. 
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LE TRAITEMENT D’ERREURS 

■ HRR ■ R FS U ME 

■ ERL ■ ERROR 

■ ON ERROR 
GOTO 

ERR-ERL 

Dès que survient une erreur pendant l'exécution d'un programme et si l’instruc- 
tion “on error goto n° ligne” a été prévue, il y a branchement à un programme 
d erreur au numéro de ligne spécifié dans I instruction "on error goto”. 

Ce programme d'erreur analyse alors l’erreur en testant les valeurs de ERRet erl 
qui représentent respectivement le code erreur et le numéro de ligne où s’est 
produite l'erreur 

Après avoir analysé et traité l'erreur, l'instruction RESUME permet au programme 
d’erreur de provoquer un retour au programme où s’était produite l'erreur. 

1U ON ERROR ü. f ij lÿw •* eri CAS cT erreur 

1 j 

2ü I N PUT "Div* veu.r 
20 PR INI' 1 0- 
40 ijQTÛ 20 
50 •; 

0 ' " * — “ * * 'i 1 3 1 y z e e r r *z u. r 

100 PRINT "Err = " -EER; ”ERL=” ; ERL 

105 1F ERR-11 HND ERL =30 THEH PR INT "Di v Par Ü i n ter- dite " : R ES' T1E 20 
110 PR: I NT "Err *ur n o n r #= r r< ri 1 1 * " ■ sjn p 
0k 
nu. tj 

Diviseur ? 0 
Er-r= Il ERL= 30 
Div Par 0 interdite 
Diviseur ? 

ON ERROR GOTO O 

Ecrit dans un programme de traitement d'erreur, il annule on error goto n° ligne. 
L’erreur est donc traitée normalement par le système (interruption du programme 
et message d’erreur). 


RESUME 

Ecrit à la fin d’un programme de traitement d’erreur, résumé spécifie où doit se 
poursuivre l'exécution du programme : 

RESUME l'exécution se poursuit au numéro de ligne où s’est pro- 

duite l’erreur. 

RESUME NEXT l’exécution se poursuit au numéro de ligne après celui 

où s’est produite l’erreur. 

RESUME N° ligne l’exécution se poursuit au numéro de ligne spécifié. 

ERROR N° erreur 

Permet à (utilisateur de définir ses propres codes erreurs (compris entre 0 et 
255) et de provoquer un branchement à ON ERROR GOTO... comme si une 
erreur avait eu lieu. 
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LE GRAPHIQUE HAUTE RESOLUTION 

■ PSET ■ PAINT 

■ PRESET ■ POINT 

■ LINE ■ DRAW 

■ CIRCLF. 

En haute résolution (screen 2 ), I écran est divisé en 256x1 92 points. 


0—255 



A la tin d'un programme utilisant la haute résolution il faut placer une instruction 
d’attente afin d’éviter un retour au mode SCREENO ou SCREEN 1 ce qui efface- 
rait l’écran graphique. 

Pour que la couleur de fond choisie par color soit prise en considération, elle 
doit être programmée AVANT l’instruction screen 2 . 
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PSET (X, Y), couleur 
PSET STEP (DX,DY), couleur 

pset(x,y) allume le point X,Y. 

pset step (dx,dy) spécifie des déplacements relatifs au point courant. Par défaut, 
la couleur est celle définie par COLOR. 

Le programme ci-dessous allume le point à l'intersection de la colonne 50 et de 
la ligne 100. 



L’instruction 30 bloque le programme en haute résolution en attendant que l’opé- 
rateur appuie sur une touche quelconque. 

PRESET (X,Y) 

PRESET STEP (DX,DY) 

Donne la couleur de fond au point spécifié. 

LINE (Xdep,Ydep)-(Xfin,Yfin), couleur 

LINE STEP (DX1 ,DY1 J-STEP (DX2,DY2), couleur 

Trace une droite entre les points spécifiés. STEP spécifie des déplacements 
relatifs. La couleur par défaut est celle spécifiée par COLOR. 


10 SC RE EN S ' h -a u. te résolution 
20 LINE< 1, 1 >-i. 50 >50) 

30 C$=INPUT*< 1 ; 
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LINE -(Xfin 9 Yfin),couleur 

Trace une droite a partir du point courant. 


10 SÜREEN 2 h a. u. te re-sülu.t ion 

20 LINE< 1.. 1 > 5Ü , 50 > 

25 LIME 1 , 100 ) 

30 1 :$= INFUT® 1 -. 1 j. 



LINE (Xdep,Ydep)—{Xfin,Yf in), couleur, B ou BF 

Trace une boîte. Les points donnés sont ceux du sommet en haut à gauche et 
celui du sommet en bas à droite. 

“B” spécifie une boîte vide, “BF” une boîte pleine 
Naturellement, l'option STEP est acceptée. 

10 SCftEEN 2 ‘ h au. te résolu, tion 

20 L I NEC 1 , 1 >-C 50 , 50 > .• 4 , B ' bo i te b 1 ■= J.e 
30 C*=INPUT$< 1 ) 


Exemples avec STEP : 

STEP spécifie des déplacements relatifs au point courant. 

Le programme ci-dessous trace une droite entre les points (100.100) et (1 10,1 10). 





EN 2 

< 1 00 1 k.10 ) 
u.IHE -STEPC 10.. 10; 
L-$“ INPUT$C 1 > 


Pi 3. ij. t e r •= s o L u. t i o *n 
d eP 1 a c e- m e n t. r e 1 .3. 1 1 f 


Celui-ci trace une droite entre (1 1 0,1 1 0) et (1 20,1 20). 


M 1 U 0, 100 :* 

30 LINE STEP>, 10, 10 > 
40 C$- INF"* IJ T $<:. 1 > 


ST EPC 20, 20 


Le programme suivant trace un dessin défini en relatif. Ceci permet un tracé avec 
echelle. 



:■ ro 
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1 y ' — * — — tr ace df des:* i ïï en rt 1 i t 

20 SCRE EN 2 

30 DHT h 5 . ü / Ci . £ , 5 0 0 -0 , 993 392 

40 •' 

U 0 F' S Eli 0 0 .. 1 0 ü ECH- 1 : i J ü S U B 1 2 0 ’ e c : h * lie- 1 

ktoT '.J RE 

70 P s ET « 100,150;.- ECH=2 : GÛSUB 120 •' échelle 2 
m 1 r •jp u r $■.. i ,* 

90 t. NC 
100 ' 

1 J. 0i ■’ - - - ü;. ou, — P r ij 9 r •?. ro roe 

120 REMI..' DN'DY : ÎF DX=?99 T H EN RE TT JR N 

j ce lin.- ‘-STU-- elhcc-x-elhcdv :• 

1 40 Gü T i 120 


Tracé du drapeau français. 


20 COLÜR 4, 14 1 SCf'ÉËH £ " haute 

30 Xfl* 1 00 ■ YH=4Ô • 14*30 ■ 1=20 
40 PSET C Nfl,Yfl) 

S0 LINE STEP<0,0,'-STEP<l,.H>.,4,BF 
63 L. I NE STEP< O -H >-STEP( L , H ) , 1 5 , BF 
70 U NE STEFÉ 0 .. -H >-3TEPC L.. H ) ■ 6 BF 
00 C»<=INPUT*< 1 ) 


rs'ÊOl'AtiO'n 


b 1 su 
b 1 a, ne 

C O U 9 lis 


CIRCLE (XC,YC), rayon, couleur 

Dessine un cercle dont le centre est XC,YC. Si la couleur est omise, le cercle est 
dessiné avec la couleur courante. 


10 S CREE H 2 

20 CIRCLE Cl 00 , 1 00 > , 50 ■' centrer on 

30 C«»INPUT$C1> 


CIRCLE (XC,YC), rayon, couleur, angle début, angle fin, rapport 
CIRCLE STEP (DX, YX), rayon, couleur, angle début, angle fin, 
rapport 

Permet de tracer des arcs de cercle. 

“rapport” permet d'obtenir des ellipses. 

Pour corriger l’aspect des cercles sur les téléviseurs français, on fera : "rap- 
port 0 = 1.3. 


ü SCREEN 2 
C PI =3. 14153 
J0 FOR lt-1 Tü 7 
40 CIRCLE. ■' 1ÛÜ . 1 OU ) 
50 NfcXT N 
6® C.* = INPUT*':. 1 


t 'û 1 *t- l 

■ h -3. u. t e résolut,! o ï i 



20+N*3, K,0, PI 
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PAINT (X, Y}, couleur, bordure 
PAINT STEP(DX,DY), couleur, bordure 

Remplit une figure dans la couleur spécifiée. La couleur spécifiée doit être celle 
de la figure. 

‘bordure” spécifie en BASSE RÉSOLUTION la couleur qu'aura la figure rem- 
plie. 


10 

■' Cercle Plein 


20 

CE *2 : LF =15 

ecr itL'.re* fond 

20 

COL OR CE.- CF : S CREE N 2 


40 

> 


50 

X=50 = V*50 

’ ce vitre 

60 

R œ 20 

ray o vi 

70 

CIRCLE c.X,Y>,R 


80 

PR INT C X , V • CE 

reroP 1 i s s -3.9 e 

90 

Cï“INPUT<K 1 > 




■ Cocarde tricolore : 


10 

20 

CO LO R 1 . 

ïT'screËr 1 ' 

-•?. rde 

tr i col or 5 

30 

CIRCLE \ 

P N . Fiÿ > . 30 

2' 

rou.9* 

40 

PR I NT C 50 

, 50 ) .. 6 



50 

CIRCLE < 

50 . 50 * 2:0 . 

15 

b 1-3. ne 


60 PHI NK J0, 50), 15 
70 C 1 ROLE < 50 .. 50 > .• U3 • 4 ’ b 1 eu. 

£0 PhIHT< 50. 50 >■ 4 
9G C$=INPUT* 1 ' 1 ) 



■ Arc-en-ciel avec PAINT : 


tr 

, i 

■ .... .. 

- — — — 

; üj,ï" C e r> c i e l 

10 

CO LO R 1 • 

15 SCRE EN 

ka. 

20 

F' 1=3 - 141 

53 


30 

FOR 

îû 1 STEP 

-1 

40 

CIRCLE'- 

100. 100 > .. 

20+H*8 , H , 0, PI 

50 

LINE a 

, 100 20 

0 , 1 00- J, H 

6U 

PAINT'.: 1 

00. 100-2 > 

. N 

70 

N EX T H 




80 C$= I N PUT $< 1 


POINT (X,Y) 

Fournit la couleur d’un point. 


10 CLS 

20 PSET< 4 , 10 O ) , 4 
30 PR INT PO INK 4 , 100 > 
RUN 
4 


106 l BASIC MSX 


> Recopie d’écran en haute résolution (imprimante Seikosha) 

Ce programme recopie l'écran sur une imprimante “SEIKOSHA". Son exécution 
est lente. 


1000 REC IF'IE ECRAN H RU TE RESOLUT ION IMPRIMANTE sE U- ïj&iti 

lny5 

J 010 DIM LC £50 ; 

1020 CF=1!:« '-ou. leur de fn. 5 : Si -s + ,-,-r 

1 025 V-0 

1Ü30 FOR N” 1 Tu 24 24 \i9ùe*. 

1040 FuR 1 = 1 ' 0 250 : L' I T- 128 HE XI I 
1050 FOR M : = 1 'û 7 
1060 FOR X-Ü T’ij J'J-Û 

1070 P=PQI N ' •' X, V > • [.F F< i F THE N L C X )=l < X - . M- j . 

1080 HEXT X 
1090 ï-V+1 

1100 HEXT M 

1110 ' edi" 1 o ti 1 I. i 9 tik 

1120 LPRINT CNRSC 8 /, 

1130 h G R 1 = 1 Hj 25Ü 
1140 LPRINT CH Ri*. LC I :• ; 

1150 NEXT I 
1 160 LPRINT 
1170 NEXT N 


Ce programme pourra être sauvegardé par : save “recop" plutôt que par CSAVE. 
Ainsi, il pourra être ajouté à un autre programme par “merge “recop v, \ 


GESTION DES COULEURS : 

En principe, la couleur peut être spécifiée pour chaque point. En réalité, BASIC 
gère les couleurs de l’écran par groupes horizontaux de 8 points. 

A l'intérieur d’un groupe de 8 points, il ne peut y avoir plus de 2 couleurs diffé- 
rentes. 

Par exemple, pour un fond blanc, si vous faites 11 PSETd 7,4) ,4“ le point (17,4) 
devient bleu. 

Si maintenant, vous faites "PSET(20,4) 1 6" le point précédent prend la couleur du 
point (20,4), c'est-à-dire rouge. 


10 CQLmR 1, 1 5 : 2 GREEN 2 
; : :'M F’- ET 1 -. 1 r .■ + j» 4 
3ü FOR fF-1 T Ci 1 000 : NEXT TF 
4ü FSE TC 2:0. 4 X» b 
50 C$=INPUT$< 1 


‘ b 1 eu 
•' r o u. 9 e 


32 



L’intersection dune droite horizontale et d une droite verticale ne pose pas de 
problème puisqu à l'intersection, il n’existe que 2 couleurs (pas de couleur de 
fond). 
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l 0 - * — - | n t. •£ ■ 1 ■ • ► • r . i • i Û •' ! oi t 1 1 i ■ • O 1 t : : : 

20 COL U F 1,1 j 
m S GREEN 2 

50 L.IHE< 1 , iti 30 • 1 Ü - ! • 14 
68 L [HE ( 20 O:. 20.- 20 1 

80 L 1 NEC 100 • 1 10 120 . 14 

90 LINE'. 100.' 130 G'iij, j 18 J. 

100 G$- 1 NPUT$t 1 ! 


La superposition de figures pleines de couleurs différentes ne pose pas de pro- 
blème, pourvu qu’il n'y ait pas plus de deux couleurs dans un groupe horizontal 
de 8 points, 

Pour définir plusieurs couleurs de fond sur un même écran, utiliser : 


LINE (X1,Y1)— (X2,Y2),couleur\BF 


20 COLÜR 1 , 1 : SC 
80 LINE •: 1, 1 
40 i. INF:. 1 100. 1 ^ 
f "î 0 L IRC LE 1 ' 80 • 5Ç 


nij, î. 0 ur dhE tond 


1 00 , 1 80 . 1 4 , B F 
- ( 200 . 1 . 00 • 13 . E 
• 80, 1 


68 i. I R £L Et 1 jù.' 50 > ■ 30.' 1 
70 ù$^ïNP 1JT$.: i 


•jVi'J 3 r is 
o nd u.9e 


Nous présentons ci-dessous divers programmes : 

■ Anneau : 


1 0 .• h ti ne au. 

20 CE -2 ■ CF “15 

30 COLÜP CE, CF : SCREEN 2 

40 •' 

50 X*50 : V=50 
60 R2=30 : RI -20 
70 Cl RC LE < X, Y R 2 
80 CI R CLE <X, Y >, RI 
90 PAINT t X, Y+Rl + l O CE 
100 C**1NPUT*C 1 > 


liE'Ci "- i t urç ' t cnvJ 


C 6' Tl t t"’ ’iü' 

r.?.y 0 ï>s 
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■ Croissant : 


20 CF=15 
3G U CK. OR 1,CF 
40 SCREEN 2 

50 C I POLE':. .1 G0 - J mm > , 5 y , i 
E0 FR ï N T* 1 00 .. ; ru-: . . ] 

7 Q •' 

FO C T R CL E * 1 30 , 1 00 , 50 , np 
9 0 F' R I N T * 1 3 0 .• U-f « ’ ■ . f: F 
100 ï“:$= INFUT $•: 1 
1 1 0 EM ■ 


C i!"« U. 1 ëv r“ de t" O Tl d 
h 3 . U. t- ë p ë S O t v t- i O n 

l*r cercle Plein 
2e me cercle Plein 


C'-’U. I eu.r de t une! 



■ Boîtes aléatoires : 


10 • tr*o= de 

3Q COL DP 1 . 1 5 : SC PEE N 2 
40 •' 


boite* 


aléatoire* 


50 PÜR H= 1 Tu 30 •* >;m 

60 X-RNDC 1 >*226 Y-RNDC 1 
70 H “PHD (1 );* 1 5+ 5 : L = R NO ( i 1 >* 1 î=l + ^ 
30 CL^RNfX 1 !>*15 
90 L I NEC X, Y >-< X+l. .■ Y+H ) , CL . BF 
100 NEXT N 
110 ' 

120 C$=IHPUT$'- 1 ;;i 


b o i tee 




- r 

«.1 
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■ Nuages : 


10 ' 

HU FIGES 


20 C 

4X0 F: 1 . 1 5 : SCREEN 2 


40 F 

•OR NU*1 TO 3 

•' 3 r» y. a. 9 e- s 

50 

X0*r NU- 1 >4' 7 0+40 • Y0«50+F: 

ni:- 1 - i ■:* iü 

60 

ORND< J. **14+1 

■ r cou 1 eu.r 

70 

FOR N=1 TO 10 

10 csr r les 

80 

X=RND'.' 1 >:t:40+X0 


90 

Y=RND":: 1 }:*20+Y0 


110 

R=5+RN[X 1 >410 


120 

FOR R 1-1 TO R : C 1 ROLE < 

X ■ V . R 1 . C : NEF; T 

130 

NEXT N 


140 

N EXT NU 


150 

C$= INPUTÎ 1 -. 1 



•t ^ 


■ Télécran haute résolution : 

Vous déplacez un curseur clignotant qui laisse une “trace 1 sur son passage. Huit 
directions ont été prévues. Si vous “levez" le curseur avec ‘L \ le curseur est 
déplacé sans écriture. “B” permet de “baisser” le curseur. En frappant “E" et en 
déplaçant le curseur, vous effacez. 


10 ' TEL ECRAN HAUTE RESOLU'! H = N • H D i RE- CT I ÜNSH'Üi 'LEURS > 

2kf ‘ 

3ü lF~15 : LL=1 i mm ' eu.! ' i oïpj çt h- cf it.ij» c 

40 CO LOF: CL . CF 
50 SCREEM 2 
60 ■ 

70 GRE N "G RP " FOR ÜUTPUT H 3 #1 

80 PCE T 1 - 14 .• ICO > F'RIMT #1, "CLAVIER riFklUSCU! t ‘ 

90 PSET< 14, 170} 

100 PR TNT #1, "FLECHES ET ONflS , 1 , 2 . . COULEURS" 

110 PSEK 14 • 180.* 

120 PR INT # J .. "L • LEVER.-- B : BRI SSER F ■ EFFACER ” 

1 30 X- 1 00 : 1 00 COORDONNEES DEPfiP ' 

140 — c v t m 3- e y. r- r 1 i 9 u o F. 3 M t. 

150 T^PüINT'- X,\ > 

160 •' 

170 I NKE Y$ 1 F C*<:." " T HE H 22U ■’ test clavier 

180 PSETC X.* V > -■ CL 
1?Ô PS ET < X .■ ï:.',CF 
20Ô GOTO 170 
210 ‘ 

220 IF L=0 THEN PS'ETC X.* Y '« • CL 
230 IF L“1 THEN PSETC N, V >, T 
240 IF L“2 THEN FSE TC X, V CF 
250 ' 

26û C-RSCA C$ :< 

270 IF C-29 THEN X=X-1 ‘ couche 

280 IF C-28 THEN X=X+i droite — *- 


MOI BASIC MS.X 


IF G- 31 T.-iEN Y~r'+; •' j-- , a - 

300 IF C=30 t h£m Y«¥-l ' a ut 

310 IF C$="û" THE H X=H™ 1 Y-Y-l • 

320 IF C*a”W" THE fl H -SH- 1 Y =', - 1 
330 IF Ct-- "H " THEH X-X-l Y=Y+1 
340 IF THFH X=X h- i . Y- Y ‘ I 

350 ' 

360 IF Xi. 1 THF N X=1 
370 TF X >254 * HEM X*£54 
330 1F Y< 1 THEH Y*1 
3y0 IF Y: 180 I HËH Y -lie 

40U ' - 

410 IF C$=”L" THEH L = 1 ■ i P .. 

420 IF C$="B" THEH L=-0 ' bHn» 

430 IF C*»"E” I HEM L"£ • P c F er 

440 IF VRLXC* >0 HNL' VFlL'i r$ '10 T'-’i : H , ! a 

450 GOTO 150 


I.ÏM.t 


mi -, i; !t. -i 


Le système "télécran" n'est pas très puissant. On regardera, dans la partie "Pro- 
grammes" les programmes ‘Tracé par segments de droite” et "Dessinateur”. 


■ Ce programme trace des figures inscrites dans un cercle : 


COL OR 4, 1 fl : se PE EN 
30 ' 

40 F 1 1=3, 14159 
50 XC=100 : YC=100 
60 R=20 : CL =4 
70 HCQT=3 
60 GOSUB 170 

90 

100 NC DT =6 : XC-150 R* 30 : CL=4 GÜSr IB 170 - 
110 

120 NC0T=15 : R=30: /r:=40 : CnSilB 17* 

140 C**INPUT$C 1 > 

150 J SF'GM 

170 PSEK XC+R > YC > • CL - Premier Point 

180 FOR C“1 TO NC 'JT 
190 fi*C*Pl^2/HC0T 
2 m X*XC+R#CÛSc‘ R j 

210 Y=YC+E!*SIN< H ) 

220 LINE -t X , Y 1 • f:L 
230 NEXT C 
240 RETIJRN 


figures inscrites dans u.n cercle 


ce Titre 

rayon /co u. 1 eur 
nombre de cotes 


hexagone 
cercle 
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■ Le programme ci-dessous trace des étoiles dont on a défini le nombre de 
côtés (5,7,9,...) : 


10 



— 

- TRACE 

D’ETOILES 


20 

COL. OR 

4,15 

3CREEN 2 



30 






40 

P 1=3 , 

1 4 1 53 




5Ü 

XC- 1 00 YC= 

1.00 

OE-ïit r e- 


6Q 

R =20 : 

CL =4 


rayon--' 

cou. L h; u.r 

70 

NCÜÏ= 

i 


nombre 

Je branche- «■ 

30 

OOSI JB 

160 




90 



“• — — 




100 

NCÜT 

~5 • XC 

~ 1 50 : R- 30 : 

CL “4 : GOSIJB 

1 60 

1 10 






1 2Û 

NCÜT 

“15 R 

- ':0 • YC = 40 

ij IJ Si JE' 1 60 



130 Cï'TNPUTï- 1 
140 ENLv 

1 1-" O P' 3 £ T '■ y, C + R , V C ) .• C L P r •= r< 1 1 r f 1 o i nt 

i ."O FOR F:.-- i T'ij NUÜ7 
; : :t- A~L i - NI.: Ü T •- 1 YF î NCÜT 
i -P'vi 4=:*;i>p:*;f IJ3* A > 

200 ! “YC+R^i. I N=, Fl > 

X1Û I J NE -, CL. 

220 Ht:-: 1 1 . 

1 1 PF n.i R N 



■ Histogramme circulaire : 


10 

■ .... 


— 



h : et C J r?. ■•mu- ... 

j. r eu. 1 a i r e 

•JN 

H* 

L 

■ cl 


J. Y- 

: "t -?r K-t 


40 

H». 

2 ' 

y 

H* 

2 

- * l 'Ci’ C'ï iS-3 fit ' 


50 

Ht 

3 

. i 

^ H$e 

' >* 

= "br i. cche" 


60 

H'. 

4 .•= 

u 

: h fi. 

4 .'= 

:: " 4 c 1 .? ir ,! 


70 

H- 

5 ) 

- 1 

Ht' 

5 s 

5 " P i Tl " 


30 








90 

XH 

= 12 

0 

r h — 

00 


> 


h 


100 R~:jÿ rie. ch 

1 10 P 1=3. 141.5- 
120 

130 COL OR 4- 15 -S CREE N 2 

135 OPE N "GRP ’ " FOR OUTPUT A3- #1 croisant 
1 40 C I R CLE f XA Y A > .. R 
150 flfl=0 


e c 1 a i r 




i r à i n 

i 

\ /. , 
J>-- t àrtç 


160 FOR F=1 TÜ 5 
170 fl=ftfl+PI«:t:H<P> 

1 80 X=XR+R*COS< P ) : Y=Yfl+R*S I N< R > 

190 LIME XA • VA X , Y ) 

200 •’ 

210 AT=hA+PI*H<P ;■ ' affichage texte 

220 X=XH+R:t 1 . â#C0SÏ RT > = Y»YA+ 1 . $$ms I Nt HT > 

230 IF AT >P I -■‘2 A NO RT<3*PI-'-2 T HE H X=X-8*LEN<L H$< 
240 DR AN " BM=X .i , =Y i " ; FRI NT # 1 , H$< P > 

250 Rfi=A 

<260 H EXT P 

270 C$=INPUT$F 1 > 


J 12 BASIC M SX 


■ Chronomètre : 


1 h chrçvnoHietr * 

2 y r ;ç st 1 !5 • L- F’ - 4 ’ O" 1 t U r '• t • ' t ' o Ti d 

3ü CÜLÜP CE. C : xCPEEN 3 
40 P 1-3. 14 1» 

3 0 X H = 1 0 0 V h Ç 0 R « 5 ÿ ' c: t « •« t r £• ' r ? .? ci ri 

60 CI RÔLE ' .H H > .• R 

70 FÜR H~0 ï'f 34P 1 TfcP P I - ^ 9r adu ü.t îüïïi. 

30 X-XFf+ft-f - o r CÛ'i' : -. l"! • ' r’ ' i ’ R *-R 1 . 3 TE • NC. Fi ,• 

90 xB^XH+FNT-N'-. ' H / ■ YE- : -YR+F:*.S I N- Fi ) 

100 LINE < X • V XB ■ -’B 
110 NEXT H 

13 U R -ET. r 

140 FOR H--0 '! 1 00 3 TEP F : i 30 

1*50 X=XH + R 4L h Y~YR+RTS I Ht. H 

lr-0 LINE 1 N R ÏH X.-V •' 

17 Ü BEER 

1 :•? 0 F û F' T P - ) • 0 u i j I -L': • T i' ' J ... e ? i P or- i i- 3 t i o ri 

19Û L INF-- Xr'l . ‘Fl • X, V ! • CF et i3?o?rn*ïït 

3110 NEXT R 
v i .0 c*-ll-PUT$ 1 = 



DRAW chaîne de caractères 

Cette instruction permet de représenter des formes plus rapidement que l'ins- 
truction LINE. 

■ Déplacements relatifs 

Une forme est représentée par des déplacements relatifs a la position courante 
du curseur. 

Par exemple, pour représenter un carré de 20x20, nous codons : 

R20 ’ 20 positions à droite 
D20 ' 20 positions vers le bas 
L20 1 20 positions à gauche 
U20 ' 20 positions vers le haut 


10 S UREE H ... ... 

30 F' b R T 1 .. 1 00 .• 1 00 i 1 P C'ï- 1 1 i 0 Tfitr'ic rit 

30 0RRW "RE0D20L20U20" ' car r t 

40 C$=1NPUT $ 1 


Les huit directions sont : 


U: haut 
D: bas 
R: droite 
L: gauche 


E: haut droite 
F: bas droite 
G: bas gauche 
H: haut gauche 
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■ Coordonnées absolues : Mx,y 

La commande “Mx,y” spécifie des coordonnées absolues. 


.. 1 00 ) ■' p os. i 1 1 üTineroent 

30 DRAW " M 1 3â , 1 00M 1 30 , 1 1 00 , 1 m " ' tr i A m 9 L e 

40 C**1NP(JT*< 1 > 




■ Déplacements relatifs : M + x, + y 

La présence des signes +/— indique que les valeurs spécifiées sont des dépla- 
cements relatifs. 

10 SÇREEN 3 

30 F'SET < iflO,l 0£i > •' Positionne me fit 

3@ DRAW " M+30 +0M+0 +20Î1-30 • -30 " ‘ tr i a n9 L e 

40 C«*lNPUT*a> 


■ Déplacement sans écriture : B 


Si “B” est spécifié, la première commande qui suit est effectuée sans écriture. 


0 SÇREEN 2 , 

5 PSEIX ÎOO.- lOO > 

20 DRAW "R20BLI20L20” 
100 C*«INPUT*( 1 :> 


L20 




\ U20 
R20 


■ Retour à la position précédente : N 


“N” provoque, après exécution de la commande suivante, le retour à la position 
avant la commande. 

lO SÇREEN 2 
2 0 F' S E T < 1 m 0 , 1 0 0 ;« 

30 M$"- 11 NU \ ONE 1 0NL 1 S ND 10” 

40 DRAW M 
50 C$ :; - 1 MEUT 1 > 


■ Angle : A 

“A” provoque la rotation d’un dessin. 

AO: 0 degré 
Al : 90 degrés 
A2: 180 degrés 
A3: 270 degrés 


Ci-dessous, nous représentons un triangle dans quatre positions. 
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10 SÜPEEN Z 
20 P SE T C 1 flM .. i l-'i 0 

30 " P2ÜD 1 0M-29 , - 1 0 M 

40 FOR 1=0 TD 3 
50 DRAW 11 H : = I ; Xh$ i " 

60 NECT I 

100 C$=INPUT*C 1 > 



■ Couleur : C 

La couleur spécifiée devient la couleur courante. 


10 

28 

SCREEN 2 

P3ETC lt)0, 100 > 



30 

R$= " R20D 1 0ÎT-20 .■ 

10" 


40 

50 

DRAW "C2"+R$ 

P SE T ( 156, 108) 


cou. 1 e*u. i"- 2 

60 

70 

DRAW "C6"+h$ 
Ci«INPIJT$C 1 


couleur - 6 


■ Echelle : S 

“S” permet d'afficher le dessin avec un facteur d’échelle allant de 1 à 255. L’échelle 
s’obtient en divisant par 4 le facteur d’échelle. 


16" ■’ tria iv&le 

echel Le - 1 

■’ g che 1. I e 2 


■ Passage de variables chaînes : Xchaîne 

Pour spécifier des variables chaînes dans une chaîne, il suffit de placer “X” 
devant la variable chaîne et un point-virgule après. 


10 SCRE EN 2 
20 FSE T 100, 10m > 
30 A$="R2£iftl 0M -20.* 
40 DRAW ,, S4 I, +A$ 

50 FSE! C 150.-1 00 > 
60 DR A N M SS"+Fi$ 

70 C*=ÏNPUT$<: 1 -• 


^ ÿCRÊEN 2 

20 P SE T C 100. 100 > 

30 B*-"R40U40" 

40 CÏ="L40" 

5fâ DRAW BÏ+UÏ 

55 •’ 

60 P SE TC 150, 100 > 

70 DRAW " 

30 C*- 1 MP UT $( l > 
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■ Passage de variables numériques 

Les variables numériques sont spécifiées en ajoutant ,, =" devant le nom de la 
variable et point-virgule après. 


l Â ft=fi^'Y=iee 


30 DRAW "BM=X i .. =Y ; 11 
40 DRAW "R20O2WL20U20" 
100 C$=INPIJT$( 1 > 


10 SCRE EN 2 

20 X=100 1 Y=10@ : HT-20 • LG-30 

25 DRAW "EîM^X; =Y; R=LGj D=HT > L=LG>.i U=HT > " 

100 C*“INPUT$<n 

Les dessins ci-dessous ont été obtenus avec le générateur de formes présenté 
plus loin. 



536 ; MRI SON 

600 COLÛR 4.15 SCREEN 2 

610 D$*"R2?M“3, -8L19M-5, +8R4D18R13U18L9BD6D12R6U12L6BL6D6R3U6L3" 

620 ' e-chelle 1 

630 DRAW "BM 1 00 • 80 " + " S4 11 +D$ 

640 ' echelle 2 

650 DRRW " BM 1 60 , 80 " + ” 38 u +DÏ 
660 CS=INPUT« 1 ) 

19 ' bateau. 

20 COL G R 4, 15 -SCREEN 2,2 

30 [>$= " R53E5M-26 , -40D37R26M-26 , -37BL 3D 
37 L. 1 8BM+ 1 8 , -37M- 1 3 , +37BM-5 , + 3M+8 , + 1 2 P 
37M+8, -12" 

40 echelle 1 

50 DRRW "BMI 00, 80 ,> + ,l S4"+D$ 

70 — eche-1 le 3 • 4 

8G DRRW * J BM 1 00 , 120" + " S3 " +D$ 

9ü c**input*o> 


GÉNÉRATEUR DE FORMES : 

Vous réalisez un dessin par segments de droite. Le programme affiche la chaîne 
D$ représentant le dessin. 
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10 

s*. -J 

30 

4Ü 

50 

60 

70 

80 

90 


CF-15 
COL OR 

§ i 

ÜPEN 1 


GENERATEUR DE FORME AVEC DRAW 

' couleur f on ci et écriture- 


:e=i 

:e,cf=screem 2 


PAINT #1, 


GRR ^ " 

F'SEK 14, 150) 

P3ETC 14, 160) 

PSETv 14, 170 ; 

1 00 PSET'I 14, 1 80 ) • RR 1 HT #1 
110 X-100 ; Y=8O 
120 SPRITE9K 1 )-CHRÏ< 191) 
ISO 


140 PUT SFR I TE 1 , <X, Y-l >, 1 , 1 


FOR OU IF U T MS #1 
PR I HT # 1 , " CLRV I ER MAJUSCULE " 

PF: I HT # 1 , " 1 ER PO I NT FLECHES PU 1 3 ' V •' " 

AUTRES POINTS- T ■ TRACE DROITE" 
"L : LEVER- EN BAISSER F ; FIN" 
c ■ j o r do m 'U e e- s d e- P a. r t 
curseur 
curseur 


15Ü ■' 

160 C$=IHKEYÈ IF €$-'"• THEN 160 ■' test clavier 
170 ’ 

îsu c=asc( ; 


1 90 

IF 

0=23 THEN X»X-1 'GOTO 140 

* 9AUchç 

200 

IF 

0=23 THEN X=X+1 ' GOTO 140 

1 droite 

210 

IF 

0=31 THEN Y=Y+ 1 : GOTO 140 

b AS 

220 

IF 

U =30 TF 

EN ï=Y- 1 • GOTO 140 

haut 

330 

LF 

C$ =i, V" 

THEN F'SEK 'A, Y >.• CE : 

XA=X ; YH=Y : GO SU B 310 

2 '"ÿ 0 

IF 

C$="T" 

AND L=0 THEN LINE 

C H.- Y R >- , s y > Y ) t LE 

250 

IF 

C $- u T lf 

THEN GÜSUB 360 : XR” 

Y. • Y R— Y • FSE \\ ’Af Y )j LL 

260 

IF 

«-"F" 

THEN F'SET < 1 4 , 1 0 > : F'R I NT #1,D$ : LPRINT P* 

27Ü 

IF 

C$= , 'L 11 

THEN L= 1 ' l 

e v e r 

28Û 

IF 

C $ ~ 1 1 E' 1 1 

THEN L=8 ' baisser 

290 

GOTO 140 



300 

’ 

— 

1ER POINT 


310 


=STR*<: X : 

N$=RIGHT$(HÎ,LEM< 

Y$>~1 > 

320 

Y$= 

:STR$C Y : 

! Y*=R1GHT$C Y$, LEH< 

Y* >- 1 > 

330 

D$= 

=Di+"BM- 

+?■;*+", "+v$ 


340 

RETIJRH 



35Ü 

•' — 


OUTRES 

POINTS 


360 IF L=1 THEN 0$=D$+"B" 

370 DX-X-XH ■ Dï-Y— VH 

3:-:0 DXî=STR$< DX ) ; DXÏ*RIGHT$< DXÏ , LEN< DX* )-l ) 

330 DY$“STR$< Dr > = DY$=RIGHT$< DY* , LENC DY* )-l > 

4O0 IF DX=0 AND DY>0 THEN DS=D*+ "D" +DY* : RETIJRH 

410 IF D>:=0 AMD DV< 0 THEN D*=D*+"U" +DY* : RETURN 

420 IF Dï-0 AND DX>0 THEN D*»D**' , R“+BX* ; RETURN 

4301 IF DY=0 AND DX<0 THEN D*=D*+ ,, L ,, +DX* : RETURN 

440 ’ 

450 IF DX= >0 THEN DH*= M + ,, +DX$ 

460 IF DX<0 THEN DX*="~"tDX* 

4 i O 

4 SS IF DY= >0 THEN DY*= ,, + "+DY* 

490 IF DY<0 THEN Dï*="-"+DY* 

50O D**DS+ "H" +DX*+" , " +DY* 

51Û RETURN 
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MÉLANGE TEXTE/GRAPHIQUE : 

Pour afficher du texte en mode graphique, il faut ouvrir un canal pour le pseudo- 
périphérique “GRP:”. 

Ensuite, on positionne le curseur avec preset(x,y>, psët(x,y) ou bmx,y. 

Enfin, on écrit le texte avec print # .texte. 


10 SCRE EN 2 

20 DP EH "GF! F' : " FOR ÜUTPUT FIS #1 
30 DRAW 11 BMI 00, 100" : PR I HT #1 . "COUt OU” 
1 00 C5-I N PU Vite 1 


Les instructions d'édition telles que 'PRINT TAB” ne fonctionnent pas. 

Un texte affiché sur un autre n'efface pas ce dernier, Pour effacer le premier 
texte, il faut : 

u Réécrire le texte en couleur de fond. 

□ Afficher des Pavés 11 en couleur de fond. 


1 fi CE -4 : f:F = 1 S ; CuLÜF: CE > CF ■’ CP : co'.>. 1 eur de t on U 

26 SCREEN 2 

30 OPEN "GRP 11 FOR ÜUTPUT RS #1 
40 DRAW " BM 1 00 , 1 00 " ; PR I NT # 1 , " COUCOU " 

50 FOR TP=1 TO 2000 : H EX T TP 
60 •’ — efface- roerit- 

70 COL OR CF CfPN " BM i 00 , 1 68 " ■ PR I HT # 1 , STR I \ IG*-.! 1 U , CHR$C 208 > > 
30 ' — 

90 COLOF: CE ; DRAW " BM 1 00 , 1 00 " ; FF: I HT # 1 , 11 C * EST MÛ I “ 

100 C$=INPUT$< 1 > 


■ Saisie d’une ligne en haute résolution 

Nous proposons ici un programme permettant de saisir une ligne en haute ré- 
solution. 


lu ' SAISIE D'UNE LIGNE EH HAUTE RESOLUTION 
28 ‘ 

30 CE=1 1 CF=15 
40 CDLOR CE, CP 
50 SCREEN 2 

68 OPEN H GRP 11 FOR ÜUTPUT HS #1 

70 XL- 1 8 : Y L= 1 0 = ME S $= " N OM : ” : GOS IJ B 100 ' c oor d o une es a f f i ch a 9e 

SÜ END 

90 -* 

108 LIG *~" 41 

110 Xl=( XL-LEH( MES* > >*8 : Yl=ïL*8 ; DRAW "BM-X1 ; -■ -Yl ; " : PRINT ME* 
128 ' 

130 L~LEH( LIG$ > • X 1 ” < X L+L )#S 1 Y 1 *YL % 8 
148 DRAW "BM=X1 ; ,=Y1, M 
150 1 

160 C»*IHPUT*< 1 ;• 
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170 C*flSCx ; 

180 

190 IF C< >S THEN 22Ô r ' code suppression 

200 IF L >0 THEN L I G$=LEFT$< L I .* L - 1 > : COLOR CF = DRAW 1J L 
FR INT #1,CHR$< 200 >: COLOR CE : GOTO 130 HLSE 130 
210 1 

220 IF C~1 3 THEN 270 4 code de return 

230 IF C<32 THEN BEER : GOTO 130 
240 LIG$=LIG$+C$ * 3 , ) ou.t- c-ar-sctere 

250 RR INT #1,C$ 

260 GOTO 13ü 
270 RETURN 
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LE GRAPHIQUE BASSE RÉSOLUTION 


Les instructions en basse résolution sont les mêmes qu'en haute résolu- 

Bien que l'écran soit divisé en 64*48 points, les coordonnées X,Y à spécifier sont 
les mêmes qu'en haute résolution {0 -> 255) et (0 -» 1 91 ) . Seule la taille du point 
affiché est différente. 

Ci-dessous, nous avons représenté un cercle. 



Avec PAINT, pour obtenir une bordure de couleur différente, il faut que la couleur 
de bordure spécifiée dans PAINT soit la même que la couleur du cercle. La 
couleur de remplissage du cercle peut être quelconque. 


er t — çssai burdure eri bu 

10 $ GREEN 3 •’ basse résolution 

20 CI ROLE 1 1 00 .« 1 00 > 40 .. Z f c er c 1 e vert 
30 PRINT C 100/ 100 >> 6.. 2 '' bordure verte 

100 GOTO 100 


■ Télécran avec couleurs : 

Principe : En appuyant sur les flèches -> «- î I , vous déplacez un ‘‘point’ qui 
laisse une "trace" sur son passage ce qui vous permet de dessiner naturelle- 
ment”. Si vous appuyez sur “L”, le déplacement s’effectue sans laisser de trace, 
permettant ainsi de dessiner une figure en plusieurs parties. 

“E” permet d'effacer. Pour les déplacements en diagonale, se referer au pro- 
gramme “Télécran haute résolution". 
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10 TEL ECRAN BASSE RESOLUTION C4 t> I RECT I ÜNS+CÛULEURÏ 

20 1 

30 CF=15 ; CL~1 •' couleur fond et écriture 

40 COL OR CL, CF 
50 SCREEN 3 
60 COLÜR 1,CF 
70 ' 

80 X-100 ; V=100 ' coordonnée déport 

90 ■' — curseur c l iSïVite nt 

100 T-F'O I NT < X , Y 
110 ■' 

120 CÎ-INKEYç IF €.%<>*' " THEN 170 ■' test clavier 
130 FSE TC X, V >.* CL 
140 FSE T <X,V>,r:F 
150 GOTO 120 


1 60 

■ — 

— — » 



170 

IF 

L*0 THEN F'SET C X , Y > , CL 



180 

IF 

L® 1 THEN PSET C X , Y > , T 



150 

IF 

L-2 THEN FSE TC X, Y *>.» CF 



200 

t 1 




21G 

C=ASC< c$ > 



220 

IF 

C=29 THEN IF X>4 THEN X= 


■' 9auche 

230 

IF 

C=23 THEN IF XC254 THEN 

OX+4 

■' droite 

240 

IF 

031 THEN IF Y <180 THEN 

ï'=Y+4 

bas 

250 

IF 

030 THEN IF Y >4 THEN Y® 

r ' — 4 

haut 

260 





270 





230 

IF 

C»*"L" THEN L=1 

lever 


290 

IF 

C$= ,, B 11 THEN L=0 

baisser 


300 

IF 

C*="E n THEN L=2 

effacer 



310 IF VftL(C$v>0 AND VALCCSX10 THEN CL=VAL< C $ > ' couleur* 

320 GOTO 100 
325 •' 

330 } P ou. r d i a9ori aies , cf t e l e c r a n h a u. t e r e s o l u. t i o n 
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LES SPRITES 

■ SPRITESQ ■ SP RITE ON 

■ PUT SPRITE ■ SPRITE OFF 

■ ON SPRITE ■ SPRITE STOP 
GOSUB 

Les sprites (fantômes ou lutins) sont représentés par des matrices de 8x8 points 
ou 16x16 points. 

Ils peuvent être déplacés rapidement et n’affectent pas le graphisme en place. 
Ils sont acceptés dans les modes SCREEN1 . SCREEN2 et SCREEN3. 

La définition se fait avec spniTES(n) et I affichage avec put sprite. 

DEFINITION 8X8 

Pour définir un sprite, on indique dans des lignes de DATA les points allumés(t) 
et les points éteints(O) puis on constitue une chaîne de caractères comme il est 
indiqué dans le programme. 

Ci-dessous, nous avons représenté une étoile. 



-00001000 

-00001000 

-00011100 


10 SPRITE 8X3 

20 CL -4 CO LO R CL,' 15 ' bleu sur fond blanc 

30 SCREEN 2,0 '' 9 ; sprite 848 taille simple 

40 DATA 00091000 
50 DATA 000O1Ü00 
60 DATA 00011100 
70 DATA 01111111 
SA DATA 00011100 
90 DATA 00100010 
100 DATA 01000001 
110 DATA 00000000 

120 ' 

130 FOR L= 1 TÜ 3 
140 PERD L* 

150 S*=Sï+C:HRSt VALÜ ‘'iiB"+L* 1 ) 

160 NEXT L 
170 ' 

180 3PRITE*(1>=S* 

180 RUT SPRITE 1,000, 100 >, CL, 1 
195 J 

200 CÏ=lNPUT*r 1 > 


sPrite no 1 dans Plan nol 
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PUT SPRITE n° plan, STEP{X, Y), couleur, n° sprite 

Les sprites peuvent etre affichés dans 32 ' plans” différents (0 à 31 ). 

Un sprite peut être affiché dans plusieurs plans mais un plan n accepte qu’un 
sprite. 

Les numéros de sprite doivent être compris entre 0 et 255 pour des sprites de 
8x8, et entre 0 et 63 pour des sprites de 16x16. 

Les coordonnées d affichage spécifiées sont celles de la haute résolution 
(256x192). 

PUT SPRITE2,(1 00,1 00)„1 

Affiche le sprite 1 dans le plan 2 au point (100,100), 

PUT SPRITE1,„2 affiche le sprite 2 dans le plan 1 au point courant 
PUT SPRITE STEP(10,10), i 2 déplace le sprite de (10,10). 

TAILLE DES SPRITES ET ECHELLE 

La taille des sprites (8x8 ou 16x16) ainsi que I échelle {1 ou 2) sont définies par 
l’instruction “screen mode, type sprite” : 

0: 8x8 échelle 1 
1: 8x8 échelle 2 
2: 16x16 échelle 1 
3: 16x16 échelle 2 

Les coordonnées d’affichage X,Y doivent être comprises entre - 32 et 255 pour 

X,-32 et 1 91 pour Y 

Y=209 fait disparaître un sprite. 

Y=208 fait disparaître tous les sprites des plans de numéro supérieurs au plan 
spécifie, 

Si plusieurs sprites sont proches ou sur le même axe X, i! faut limiter le nombre 
de sprites à 4. 

screeni permet d’essayer PUT SPRITE en mode direct. 

La définition en binaire des sprites est fastidieuse. On procède plutôt comme 
suit : 

Pour chaque ligne de 8 points, on additionne les “poids” des points qui doivent 
être allumés. Sur l’exemple ci-dessous, pour la ligne 3, on obtient : 

16 + 8 + 4 = 28. 


POIDS 
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èi CL=4~C0L0 R j EËÏI§ •' bleu sur fond blanc 

30 SCREEH 2>& ■' 9 ■ sP r 1 te 8*8 taille simple 

40 DATA 3,8/23,127,23,34,65,0 

50 ' 

g0 FOR L=1 TO 8 
70 RERD ND 
80 S*=SS+CHR*C ND > 

90 NEXT L 
100 J 

110 SPRITESC 1 >St 

120 PUT 3PRITE 1,C 100, 100), CL, 1 ' sPrite mol dans Plan mol 

130 ' 

140 CÏ=INPUT*a) 


DEFINITION 16X16 

Pour représenler une figure de 16x16 points, il faut définir quatre sous-chaînes 
S$(1), S${2), S$(3), S$(4) et les concaténer. 


S$(1) 


S$(2> 


20 CL ERP: 1006 
30 SCREEH 2,2 



SSI3) 


sPnte 16;:<16 
I. ect u.r e DR l HD 


S$(4) 


40 F OR M-l T G 4 
5ü FOR 1-1 Tü 3 
S0 PERD d 

70 H >=&$•:: N >+CHR$( X > 

30 ML DT I 
9ü MEXT N 

.100 3 P R I TE>; 1 1 j+S$< 2 :<+S$( 3 )+S* . 

1 1 0 PUT SPR I TE 1 , 1 00 .. 1 00 > ■ 1 .■ 1 

1 2 0 — — - * d 6* :!î- S i Tl 1 ü C OT'i 0 1. 1 V *::• 

1 3ü DRT H 0 U . 6 • 6 .• 1 6 .• 0 .• 48 , 4 8 
140 DRTFi 12 V • 1 2 ? , 127, i 27 , 255 , 255 , 48 
L 50 DH T H 0 .■ 0 . 8 ■ Ü , 254 , 1 98 .. 254 ■ 454 
1 60 DR TR 254 , 254 , 254 , 254 , 255 . 255 , 84 . 
1.-0 •' 

180 C$=INPUT*< 1 :• 


4 > 

48 

84 
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■ Générateurs de sprites : 

Nous proposons un programme générateur de sprites permettant de représenter 
des sprites de 16x16 points. 

En mode "télécran 1 , nous représentons le sprite. Le programme fournit ensuite 
les valeurs décimales. 


XXXfcXXM 

IJ . *i ■■ i* \ i, .H. ,i*,j i, j i, 

1 1 ’i A »• ’i t 'i c ’i r 'i r ’j r t r 

i*' l, i 



A 



X 

— 0 

gt - 

X 



x 

0 

0 

v 


,1 

y 

£ 

-•u 

A 

At 

’l 

»• *• 

ti 

X 



X 1 

0 

0 

X 

X 

yy www 

ru ii ’n' ii ir h' i 

y 

Ai 

16 

254 

l'b 


A A i -, ’i r''i 

Ai 

01 

138 


r* “• i 1 *> 

WW W V 
ri A AA V A A 

Ai 

48 

254 

1, • 
r'\ 

r' : . i* ,: i 

W W y 
fVi A Au"iAir i 

1, ,L 

L 48 

254 - 

X 

XXX XX) 

,14. ,1 fe ,11 II, «1, ,1a, ,11 j 

iA A.''i A A AA A 

|l 

Ai 

p 127 

254 

X 

y • j.,4 y y *; 

■i Ai Ai A Ai Ai Ai r''i 

Ai 

127 

254 

X 

V V V V 'î.i 1 V W V V W V 

AT ri it irnAi i i i i ï i i i ■ 1 iTpi-i 

Ai 

127 

254 

X 

l,.l> .il IL II II, 

A A A Ai An' 

/',j y y y y y y v 
u Ai r \ A A» AA Ai Ai 

f: 2 

127 

254 

x> 

l'yv y y y ; 

ini ' »• 1 1 i r '< i 

■ A i' *p r'*i r *i .• ■■ < 

255 

254 

xxxxxxx> 

• » .i i j i » i % i « 

. A, A. A. A, A, Ai Ai Ai 

:x 

255 

ill \ J ÿ 

A 

A X 

A> A* 

r 'i 

48 

24 

I ’l 

y y 

j .< i 

•. t y 
i'V. 

x 

— 40 

24 ^ 

V 

1 A 1 A AA A *' 

•yy uyu y 

1 1' ■. h. r ■> i-i «• r » r i r' 

i A 




FLECHES POUR DE PL RC ER 
L : LEVER • EH BAISSER F FIN 


Pour obtenir les valeurs de la figure retournée de 180°, ajouter les instructions 
suivantes : 


450 LOCflTE 15, 13 ^ INFUT " RETOURNEMENT ( QxN J " > R 

bj0 ■ RETOURNEMENT 

fa40 FUR CL=-'l TO 2 * 2 COLONNES 


R$ : IF R$<. >"0" THEN 150 


16 LIGNES 


650 FOR L=1 T G 16 
660 PS=t.'CL~l ï£8 

ïll _ _ ' VALEUR DECIMALE 

ff® F0 R_a=1 tu « •• 1 CARACTERE 

Sa0 H~U 1 I F VPEEK'I AM+2+PS+X+L440 'J=200 THEN R=1 
70y ND*ND+ft*2 A <X-i > 

710 next x 

720 LÛCftTE 20+C \ 2- CL >+ 1 }*5 , L = PR I NT ND, SPC* 1 > 
730 NEXT L 
740 HEXT CL 
750 GOTO 150 
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* sFRE^r* 7 ^ [£ spc ' ites 

2Ü CUL OP 4.. 15 

70 F-üP x-ÿ TO 17 LOCATE X • a PP INT "y," ■. i m pr ~ v r 
PP ] NT '■X- KE -.T X 


00 FOR Y=0 TÜ 17 LOCATE O Y PF I NT '' X" • Li'i-' RTF 17. Y- 
F PI NT "X" HE MT r 

05 LÜChTE 1,1* FF INT "CLAVIER MAJUSCULE" 

90 L OC R TE 1,20 PP INT "FlECHES FOUR DEPLACER* 

1O0 LüChTE 1,21 PF- INT "L- LEVER- B ' BR IEEE P F FIN" 


110 X - 1 0 • Y- 1 0 ' C 00 F' D CiN v -t E : DP pm Pi 

140 ' CURSEUR: CLICNUT ANT 


15Ù Ct- INC.EYt 1F Ct - > " r ' THEN 200 'TEC! CLAMER 
160 L OC RTE X • \ : PAINT CHF-t r 200 > 

170 LOCATE y. Y PP INT CHP't': 32 ;• 

180 GOTO 150 
1 90 ' 

20 Pi IF L=0 TKEN LOL-ATE X. V FF INT CHPtL 200 .■ 

210 IF L-l THEN LOCATE X,ï PP IN" CHR$ ! ?? '• 

220 

230 C=RSC*: Ct 1 

24C IP C-29 THEN 1F 1 THEN X=X-1 GAUCHE. 

250 IP 0=2. S THEN IF CMP THEN MM: ‘DRCU'E 

260 IF C “ ? 1 THEN IR Y 16 THEN »‘=-.’+l '' P HR 

270 IF C~ 3m THEN IP YM THEN V=iM •HAUT 

275 IF C - >32 THEN LOCATE 20,19 PR INT Ct 

2‘SÜ IF Ct- "L' 1 THEN L =■ 1 
290 IF :| THEN L-0 

700 IF et'-” R" THEN 330 
310 GOTO 150 

320 CALCUL VALEURS DECIMALE':- 

330 RM =6 A ML' CD 

340 F OP CL = 1 Tfi - v CÜLÜNNr 3 


350 FCP 1=1 Tü 16 * 16 LIGNE : 

360 P ?■— . r L-l 

370 NO- U YHl.FUP Ht-. IMHLE 

3Ç:0 F • jp X= 1 Tu 2 1 ChF'hCTcRE 

390 A=ri 1 F VPEEO: AM+2+PS+X+LM0 ':>=20O THF N A-l 
400 ND=ND+A*>' '• 8— D 
41U NEXT X 

420 LüChTE 2Ü + CL. £5, L PAINT ND SP»"' 1 . 

430 NEXT L 
44P NEXT CL 
450 GOTO 150 


ON SPRITE GOSUB n° ligne 
SPRITE ON 
SPRITE OFF 
SPRITE STOP 

L'instruction on sprite gosub définit le numéro de ligne où il y aura branchement 
du programme s’il survient une collision de sprites. 

sprite on valide la déclaration faite par ON SPRITE GOSUB 
sprite off l'annule. 

sprite stop mémorise la collision en attendant SPRITE ON. 



r 
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t lit 

10 • collision 

20 COLOR 1 , 1 5 : SCREEH 2,0 


sPr i te 


3G SPRITE$C 1 >=CHF:$( S >+CHR$C S >+f:HP$f 2;=: 
)+CHR$( 1 27 >+CHR$< 28 >+CHR$< 34 >+i_:HE$< 65 


40 SF'RI TE$'.' 2 >=SPR I TE$( 1 > 
59 ■ 


6G. ON SPRITE GO SUS 140 
70 SPRITE OH 


80 V-100 

20 FOR X=1 TH 220 
100 PUT SPRITE 1 , ( X . Y > . 1 . l 
110 PUT SPRITE 2,'.:220-X, Y),2,2 
120 NEXT X 


130 ' 

14Q PLAY "CDE” 
150 C$=INPUT$( 1 > 


collision 


■ Une étoile filante traverse l’écran : 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 


- ETOILE FILANTE 


CLEAR 1000 
COLOR 1,15 
SCREEH 2,2 
FOR N-l T O 4 
FOR 1=1 TO 8 
READ X 

A$< N >=fl$( N >+CHR$f X 
NEXT I 
NEXT H 



110 

120 

138 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 


SPRITE3K 1 >=A$( 1 >+A$( 2 3 >+fl*c 4 "* 

■ DEPLACEMENT 

C=RHD( 1 >4 15 

X=RHD< 1 >4100+10: 1 

S=INT< RHD 1 1 >42 > : I F S=0 THEN S=-l 

,t 


PUT SPRITE 1 , < X , Y > , C , 1 
X=X+S43 ; Y=Y+3 ^ IF X>190 OR 
GOTO 170 


X<10 THEN 138 


DATA 0,0, 1,1, 1,63, 15,3 

DATA 3,7,6,12,8,8,0,0 

DATA 128, 128, 192, 192, 192,254,248,224 

DAT fl 224 ,240,48,24,8,0,0.0 

C*»INPUT*< 1 > 
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■ Vol de papillon 

Pour simuler un vol de papillon, nous le représentons alternativement dans 2 
positions. 

Chaque position est représentée par 16x16 points. 


AS( 3 ) 

X 



y 


AS( 1 ) - 

y"^ 

N 

// 

,\ 

.A/ 


y — 


y 



z 

Positionl 

A 

Z 

Positwi 2 

^ 





AS( 2 ) 

" __] XJ 


A$( 4 ) 


10 ‘ 

— ■- 

VOL 

C E F : 'RP 

ILLON 



25 l 

LE R R 1000 






30 C 

E-l CF- 15 



ecr 

i tur 

' end 

40 COLOR CE.- C 

F 





50 S 

CREER 2,2 






60 FOR S=1 Tü 

Ù. 


2 2- 

P r i t 

■es 1 6 > 

70 

FüF: 1 = 1 

TÜ 4 : H$ : -. I 7 =,ï '* 

: H EX T 

I 


80 

F Ü R N=1 

TÜ 4 





90 

FOR 1=1 

Tü 8 





100 

PERD X 






1 10 

R$'- N : 

=Fl$ r , N 

+CHR$*:: N 

> 



J. 20 

« 

Lu 






130 

H EX T N 






140 

S PRITES 

S )=R$( 

1 HR r i*< 2 

H 36 

3 O F 

ISK 4 .:■ 

150 

H EXT S 






1 60 



-• 

— 

POSITION 

1 

170 

DR TR 0,0- 

Ü, 127 • 

63, 31, 1 

!j .. 6 o 



1 30 

DR T H 15,2 

1,63, 1 

27 , 0 - 0 - 

0 r 0 



190 

DR TH 0.0, 

8, 248, 

240 *226 

, [ 3 6 i 

2 48 



."•00 DR T H 1 36 • 226 , 2:40 , 2:48 .• 0 • 0 • 0 • 0 

>:10 •*-- — - - POSITION 2 

220 DRT h y , 0 , 0 , ÿ / 0 .■ 3 1 .13,6 3 
230 DRT R 1 5 .• 3 1 .■ 0 .■ 0 .■ 0 , ü . 9 , 0 
240 DR Th 0 , 0 , 0 ,■ 8 , 0 , 226 - 1 96 • 243 
258 DR T H 1 96 , 226 .• 0 - 0 , 0 , 0 , 0 , 0 
260 ‘ - - 

2 7 0 C I N T R H D C 1 : 1 i 1 5 ■ f S. ■' r n u 1 e- 1 .« r a » : h * •=- •? * '■ d 

280 Y- 109 


290 

FOR 

7”1 TC 2Ü0 :■ 

•:TE.F 

4 


300 

PUT 

SPRITE 1,0 

: i • Y • 

, C, 1 


310 

F 1 U R 

TP- 1 Tu 50 

ne;- 

T TP 


320 

PUT 

SPRITE 1,0 

=: , 22 

3 > ■ C ■ 1 

•H- U. P 1- fS"T. ' O T» iü P ["■ 1 t-6 1 

33© 

PUT 

SPRITE 1,0 

: y c 

.* ’m.' ' iLi 


340 

FOR 

TP=1 TÜ 50 

HE/ 

T TF 1 


350 

PUT 

SPRITE 1,0 

, se 

3 > , c ■ 2 

1 1 F' P r- k :i?. ” i o ïï ■=. P r i. t g- 2 

360 

MENT 

X 




370 

Y-Y+4 




380 

GOTO 

270 





390 C$“INPUT$':: 1 
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■ Une étoile est affichée dans 32 plans. 


19 1 — r - ciel 

20 CL EUR 100G 

30 CÜ LO R 1, 15, 15 

4û S CREE N 2,3 

50 FOR N- 1 TO 4 

60 FOR ]>1 Tu 3 

70 RE RD X 

SU fl$< H H >+CHP$< 

30 NE K T I 

100 ne: ;t h 


et-oi le 


110 


fi'ii.i. I. +;. i co 1 or-K 


120 

SP R I TE$< 1 1 Fl $ 

2 j+MÏK -2i' ) 

+«$».: 4 ; 

1 30 

■ • — - — - — - — — - 

3 

f'f IC 

■ h 3.9 e 

32 s P ri t.pj 

140 

FOR p=0 TO 31 





150 

X=RND< 1 >*226+10: 


RHIX 

1 >4 1 7 

0+ 1 0 

169 

CLeRHtX 1 >*15+1 





170 

PUT SPRITE F' . ( K , 

Y ) 

.►CL, 

1 


180 

H EX T P 


. 



130 

C*=INPUT*C 1 > 





200 

• i; j 

K' 

l M 

etcn L 


210 

DHTR 0, g , 1,1,1, 53 

, 1 

cr -, 

•j : 



220 

DR T F 3.. 7,6, 12 , s. fi 

,0 

0 



230 

DRTR 128, 128, 192, 

13 

2, 13 

2, 254 

> , 224 

240 

OflTfl 224,240,48,2 

4, 

O , 0 .• 

0 , 0 



■ Ci-dessous, nous représentons un soleil en haute résolution avec un cercle 
plein et huit rayons. La deuxième partie du programme fournit les valeurs déci- 
males pour représenter le soleil sous forme d r un sprite. 


70 i 

:f=is 



.* 

co u. 1 e y j. r de tond 

80 ; 

*:c=ü : T'L 

2 : R=3 



c t ïï L. r e r ■ y < j n 

30 i 

:;OLOR i , 

CF 




100 

SCREEN 

£ 



h-?. u Le reso T • i + . i 

110 

CI RCLEC 

XC , YC 

), R 

, 1 


120 

PhI NT X 

C , YC > 

, 1 



130 

FOR fi=w 

TO 2 

4:3. 

14 S T EF 3. 

1 5 -■'4 '* r;rJi">|-| 

140 

R1-R42 

rr 
- .J 




150 

X=XC+R 1 *CQS 

fi > 



160 

V=YC+R1*SIN< fi > 



170 

LINE ( 

:«;c , vc 


X ■ Y > 


1 80 

NE Y T R 





130 






200 



----- 

COL' 

CUL VALEUR 

5 DE.CIMHLËS 

210 

OPE N 1 G 

RP ^ M 

F OR 

ÜUTPUT RS 

#1 

220 

FOR CL - 

1 Tu 




230 

FOR L“ 

1 TO 

16 



240 

PS=C C 

L~ 1 Y* 

s 



250 

ND=0 





260 

FOR X 

= 1 TO 

P 



270 

fl “8 : 

IF POINT' 

PS+X , L. X > 

CF T HEM ft-l 

280 

ND=ND+R*2 

8- 

> 
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20 DATA 

30 D'h T H 
40 DRT Fi 
50 DRT R 


>96 NEXT X 

i»00 X1*100+CL*32 ; Yl æ 40+LS:8 

Ï10 DRAW U BM*X1 *Y1 • " 

ï20 PR INT # 1 > NC' 1 

Ü30 N EX T L 

Ï40 NEXT CL 

>50 C*=INPUT$< 1 > 


dessin so T e i 1 o b t e ri «.* 

1,65, 33, 17, 11,7, 239,31 
15,7,27, 34,66,2,2,0 
0 , 8, 16 , 32 .» 1 92 , 1 92 , 224 , 254 
224 , 132,1 60 , 1 6, 8 , 0, 0 , 8 
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REDÉFINITION DE CARACTÈRES 

Chaque caractère est représenté en mémoire sous forme de 8 octets. 


SS 5 - 



L adresse du générateur de caractères” est donnée par I instruction BASE{n). 


SCREENO 

SCREENî 


> BASE(2) 
-> BASE(7) 



BASE (2) 


2048 


L’adresse du premier octet d'un caractère est donnée par ■ 
adresse=BASE(2)+ASC(caractère)*8. 

Pour modifier un caractère, on utilise vpoke adresse, valeur. 

En mode SCREENO”, seuls les 6 bits de gauche des caractères apparaissent 
I écran. 

■ Ci-dessous, le caractère "C” est remplacé par un dessin de voiture. 
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1© ' REDEFINITION CARACTERES 

20 * 

30 •' — • — d ç s s i a O i t ij. r e 
40 ' 

50 DATA 1 86, 252 , 1 30 , 48 , 48 , 1 80 , 252 , 1 80 
60 •' 

70 SCREjEN 0 

80 C$- f, C" ■’ caractère' a modifier 

90 AG=BASE< 2 J> •' adresse 9enerate'j.r de caractères 

100 flC-fiG+ASCX C$ >48 
110 J 

120 FOR M--AC TO AC+7 
130 READ ND 
143 VPÜKE M ND 
150 N EXT N 
160 PR INT C$ 

170 STOP 

■ Le programme ci-dessous inverse le caractère "A” : 


180 ' INVERSION DE R- 1 

190 •' 

200 SCREEN 0 
210 C$= I, A M 
220 AG=BRSEC 2 ) 

230 AC-RG+ASCC C$ )t& 

240 ' 

250 FOR 1=0 Tü 7 

260 M=RC:+I 

270 C ( I )=VFEEK< M > 

280 NEXT I 
290 1 

300 FOR 1=0 TÜ 7 

310 M=AC+I 

320 VPÜKE M, C<7~r> 

330 NEXT I 
340 PR INT C$ 

■ Après avoir redéfini le caractère ‘C’\ nous dessinons des immeubles : 

□□□ 

□□□ 

□□□ 

□□□ 

□□□ 


□□□ 

□□□ 

□□□ 

□□□ 


y 


n rn 


□ □ 


□ □ 


□ □ 



Caractère redéfini 
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10 '• DESSIN IMMEUBLE 

20 DATA 252 , 1 32 .• 1 32 , 1 32 , 132,1 32 , 1 32 , 252 
30 ' 


4Ô : 

SCREEN 0 




50 » 

C$* M C" 


* car a et er 

*•£ a modifier 

60 ! 

RG*BfiSE< 2 > 


* adresse 

9 e Ti £ r -9. t £ U r d 6' 

70 i 

RC=RG+R3C< C$ >*Ç; 




80 

•* 




90 1 

FOR M*RC TO flC+7 




100 

RERD ND 




110 

VPOKE M, ND 




120 

me: ; T ri 




1 30 






140 

X6- 1 : VB-2: : 




150 

— 




16.J4 

FOR N= 1 TO 5 



immeubles 

170 

H-RND< 1 >*5+5 L= ; 

RND< 

. 1 >*3+3 


180 

FOR Y=VB TÜ VEi 

-H : 

>tep -i 


1 90 

FOR X=XB TÜ x 

B+L 



200 

LOCRTE X , Y : PR 

INT 

C*; 


210 

NEXT X 




220 

NEXT Y 




230 

XB=XB+L+2 




249 

NEXT N 





■ Le programme ci-dessous représente une maison utilisant quatre caractères 
(ABC D). 

CHR$(8) déplace le curseur à gauche et CHR$(31 ) vers le bas. 



30 
40 ' 


DESSIN NRISON (MODE SCRE EN 1) 
4 CARACTERES 


50 DATA 12, 12 / 63 • 127.« £55.» 64 * 95- 85 
60 DATA 0,0, 248 , 252 , 255 .<2/2/2 


70 DRTR 95,35,85 85, 95, 64.. 64, 1 
80 DRTR 122,74,74. 106,74-74-74 
90 ' 

100 SCREEN 1 

110 CS*" fl" i p r - 

120 RG-BRSEC 7 > •• adr* 

130 AC-AG+ASC< C$ >%Q 
140 ' 

150 FOR N” 1 TO 4 
160 B~flC+< H- 1 )*3 
170 FOR M*R TO R +7 
180 RERD ND 
190 VPOKE M, HD 
200 NEXT N 


,254 


sse 9 errer- a. te u r de caractères 


210 NEXT H 

220 ■ 


230 C*ftSC< CSO 

240 K$=CHR$< C >+ChRï( C+l HCHR$Ç 31 )+CHR$'^ 8 >+CHR$C f: .i+r.HRi': 3+2 >+r;HPï'' r+3 i 

250 '■ AFFICHAGE 

260 FUR N=1 TO 10 

270 X~RND< 1 J *38 V-RHD( 1 >*20 

280 LOCRTE X, V - PR INT K$ 

290 NEXT N 
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MODIFICATION ECRAN EN MODE “SCREEN2” 

■ Ci-dessous, nous dessinons deux voitures en haute résolution en utilisant 
VPOKE. 


10 ' flffichJ.9e direct écran c;SCREEN2) 

20 

30 '' dessi t» vo i t u. r e 

40 DR T R 180.252G 180,48,48, 188,252, 180 
50 SCREEN 2 

60 FOR 1-0 TO 7 : REflO C( I > ; HEXT I 
70 f 

30 CDL= 1 0 • L I G=2 ! GOSUB 130 t* 

98 LIG*3*COL=3‘GOSUB 130 
100 •' 

110 C$=INPUT$C 1 ) 

120 ■' s P 9iïi 1 caractère 

1 30 M=C L I G- 1 )*32*8+< COL- 1 >*8 
140 FOR 1=0 TO 7 
150 VPOKE M+ï,C<n 
160 NEXT I 
170 RETIJRH 


134 I BASIC MSX 


LES SONS 

■ BEEP ■ PLAY 

■ SOUND ■ PLAY(n) 

Les sons sont fournis par trois générateurs (A,B,C,). Un bruit peut être ajouté à 
chacun de ces générateurs. 

Plusieurs types d'enveloppes sont disponibles (B). 14 “canaux’ 1 permettent de 
commander la fréquence des générateurs (CO à C5) r le bruit (C6), le volume (C8 
àC9) et l'enveloppe {Cil à Cl 3). 


GENERATEUR A 


r , 


Période basse 


Période haute 



Cil 


C12 


période basse 
période haute 


C13 enveloppe 
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BEEP 

Provoque un son bref. 

SOUND n° canal, valeur 

Commande les différents canaux : 

■ Générateurs de fréquence A,B,C : 

Chaque générateur est commandé par deux registres de 8 bits dans lesquels on 
place la “période basse” et la “période haute”. 

La période réelle est donnée par : 

Période^ période haute*25€+ période basse 

La fréquence est égale à : 124000/période. 

Exemple : pour le générateur A (CO, Cl), plaçons 100 dans Cl et 1 dans CO : 
SOUND 0,1 

SOUND 1,100 -> 1*256+100=356 
La fréquence est 124000/356. 

La partie haute de la période doit être inférieure à 16 (4 bits seulement sont 
utilisés). 

■ Bruit (C6) 

Le canal C6 commande le bruit qui peut être ajouté aux fréquences A,B,C. 

■ Interrupteur (C7) 

Le canal C7 sélectionne les générateurs et le bruit. Un “zéro" commande le 
passage. 

sound 7,&bi iiooo sélectionne A,B,C 

sound 7,&biiiiio sélectionne A seulement 

sound 7,255-1 sélectionne A seulement 

sound 7 ,o sélectionne A,B,C et bruit pour A,B,C. 


■ Volume : 

Le volume doit être compris entre 0 et 15. 
sound 8 ,i 5 règle le volume pour A au maximum. 

“volume” égal à 16 indique que la fréquence doit être modulée par le générateur 
d’enveloppe. 

Le programme ci-dessous vous permet de tester les notions ci-dessus. 



136 I BASIC MSX 


kl INF U T "FREQUENCE "7F 
30 IF F: 33 TH EN 20 
4Ü ' 

50 P-l/F.*: 124000! 

60 Cl -F -256 
70 C0=F MOC> 256 
80 PF IN T Cl, C0 
Qm ’ 

10© SOUND 7,254 
110 SOUND 8,12 
120 SUUND u, C0 
130 SOUND 1 , C 1 
14Û GOTO 20 


fre^ uence 


P er 1 ode 
canal 1 
canal O 


■’ voix H 

■' vol u ne 12 Pour H 


■ Forme enveloppe (C13) et période enveloppe (Cil et C12) : 

Huit formes d’enveloppe sont disponibles. 

La forme se choisit par : Sound 1 3,n« forme. 



w\ 

N 

AV7 
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La période de l’enveloppe est choisie par : 

Sound 11, période basse 
Sound 12,période haute 

La période réelle est donnée par : 

P=période haute*256+ période basse 

La fréquence est égale à : 7800/P. 


Ce programme vous permet de tester les notions présentées ci-dessus. 


10 fréquence- enveloPPe 

•' bruit équivalent 3 P ING 


36 ’ 

40 INF UT "FREQUENCE enveloppe 
50 ' 


l! FE 


66 

70 p-l/FE*:780û 
ÿ0 P2=P'\256 
90 P1=P MOD 256 
100 PEINT P2, Fl 
110 ’ 

120 SOUND 7,254 

130 SOUND 8, lb 

1 40 SOUND 0 .• 50 ■ SOUND 1 , 1 

im SOUND 13/8 

160 SOUND 11, PI 

170 SOUND 12. -Pii 

ISO GOTO 10 


P er i ode- 
C Aï» «3.1 12 
C-3.V13. L 11 


voix H 

c o ïi t. r oie P -3. r e n ve 1 o P P 1 e 
fréquence I 1 xe 
type e Ti v e 1 o P F’ e 
F' e r i o d e t» 3. s -5 e 
P 1 e- 1 ’ 1 i ci d e Pi -3. u. t e 


Nous présentons quelques programmes de sons. 


■ Ping : 


10 7" 

— Pin 9 

2W SOUND 7,254 

voix H 

30 SOUND 8,16 

c o 'n t r’ o l e F' 3. r e n v e l o F 1 F 1 e 

40 SOUND 0,50 SOUND 1,1 

fréquence fixe 

50 SOUND 13,8 

type enveloppe 

60 SOUND 11,0 ■ SOUND 1 Ü .■ 1 0 


80 FOR TF-1 TÜ 100 HEXT TP 


90 SOUND 8,0 



■ Exptode : 

G ex p Iode 

1 0i SOUND 6 , 20 

20 SOUND 7,7 : SOUND 12,26 

30 FOR C*3 TÜ 10 SOUND C> lb NExT C 

40 SOUND 13,0 
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■ Shoot 


10 SOUND 6,11 

£0 SOUND 7,? SOUND i£, 1£ 

30 FOR 08 T’Û lü SOUND C, 16 N-IENT C 
40 SOUND 13,0 


■ Sirène 


10 ■' 

20 SOUND 7,234 
30 SOUND 8, 1® 

4û •' 

50 FOR 1*1 10 255 
60 SOUND 0, I 
70 NEXT I 
80 GOTO 50 


■ Vague 


fe'ioÜHD êTÏÏ V * 9U * "" 

20 SOUND 7.* 7 : SOUND 1 2 t 40 

30 F DR 08 TO 10 : SOUND CMS 5 NEXT H 

40 SOUND 13,. 14 


sir-erp# 

' 9erierateur R 
volume Pour R 


■ Descente soucoupe 


lu ~~ descente soucoupe 

20 COL OR l u 1 5 : SCREEN 2.0 
30 SF'RITESK 1 >=CHR$>. 48 >+CHR$'v 43 >+ÜHR$>, 
48 ?+CHR$< 120 >+ÜHR$( 252 HCHR$', 252 >+f:HR 
*< 252 >+CHR$< 252 > 

4Û ■' 

50 Y =50 


60 SOUND 7, 254 SOUND S.. 12 J ©enerate 
ur R Vol urne =1 2 
70 ' 


80 S*1 

90 X 1 ~ 1 0 = N 2= 208 

100 CL=RND< 1 7*14+1 

110 FOR X“X1 TO N 2 S TEP S •' 

120 SOUND Q,Xs2 

1 38 PUT SFR I TE 1 , ( X, Y >, f;L . 1 

140 NEXT X 

158 S=-S = SWRP XI, X2 

K sens 


sens 
bornes 
cou. I eur 
avance 


i river s i o 


160 ï=Y+8 


170 GOTO 100 


descente 
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PLAY chaînel ,chaîne2,chaîne3 

Joue des notes sur trois voies simultanément. Les notes sont représentées par 

A, B, -F, G. 

A:LA 

B:SI 

C:DO 

D:RE 

E:MI 

F:FA 

G:SOL 

PLAY “CDEFGAB” joue DO, RE,... LA, SI 

Les chaînes ne doivent pas comporter plus de 255 caractères. Une note peut 
être suivie par # ou + (diese) ou par - (bémol). 

PLAY “C+D+E+” 

Plusieurs commandes sont disponibles. Leur effet dure jusqu'à ce qu'une nou- 
velle commande définisse une nouvelle valeur. Par conséquent, on pensera à 
initialiser des valeurs qui auraient pu être changées par un programme précé- 
dent. 

beep initialise ces valeurs. 

■ Octave : On : 

Change le niveau d’octave pour toutes les notes qui suivent la commande. 

"n” doit être compris entre 1 et 8. La valeur par défaut est 4 


PL fi Y "05CDE04CDE" 


■ Note : Nn : 

Joue une note comprise entre 1 et 96 (8 octaves et demi ton). 
play “N36” est équivalent à play “04C” 

20 PLAY "G4CDE" ' DÛ RE MI 

3w PLAY "N36M33N48" ' c'est la meme chose 

n=Û provoque un silence. 

■ Longueur : Ln : 

Détermine la longueur des notes après la commande. 1 donne la durée la plus 
longue et 64 la plus courte. Par défaut, “n” est égal à 4. Pour modifier la durée 
de la note suivante seulement, spécifier la valeur après la note. 

10 PLAY "L32CDEFGR6" ' toutes les notes 
15 PLAY "RRR" 

20 PLAY "L4CD32EFGAE:" ' D seulement 



140 I BASIC MSX 


Chaque V après une noie multiplie sa longueur par 3/2 (2 points multiplient par 


10 PL Fl Y "R. . BCDFG" 


■ Silence : Rn : 

Provoque un silence, “n” doit être compris entre 1 et 64. 

fl Tempo : Tn : 

Détermine le tempo (32 à 255). La valeur par défaut est 1 20. 

■ Volume : Vn : 

Détermine le volume (0 à 15) qui est par défaut égal à 8 

10 PL Fl Y ' 1 V 2 R V 4 R V S R V 1 5 H ' 1 

■ Forme enveloppe : Sn : 

La forme de l'enveloppe doit être comprise entre 0 et 1 5 (cf SOUND). 

■ Période enveloppe : Mn : 

Définit fa période de Tenveloppe (1 à 65535). 

Par défaut, n=255. 


1 0 PL R Y M 3 1 311 1 000H BCPEFij 


■ Passage de variables chaînes : Xvar$ ; 

Le passage d’une variable chaîne se fait en ajoutant “X” devant le nom de la 
variable et point-virgule après. 

10 C 1 $= M CDE M 
20 C2*s"FG fi" 

30 PLAY . 11 XC 1 $ ; XC2$ ; " 

fl Passage de variables numériques : =var ; 

Pour spécifier une valeur donnée par une variable numérique, on place le signe 
" = ” devant le nom de celle-ci et point-virgule après. 

Le programme ci-dessous joue les notes de 36 à 96. 


ië 

30 

40 

50 

60 




Y M L2” 

FOR NT-36TÜ 36 
LOCRTE 10, 10* PR INT 
FL R Y "N-HT ; 

NEXT NT 


NT 
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Exemples divers : 


10 PL H Y "C°, "E”, "G" 

10 F'LRY "T200flBCDEF M 
20 F'LRY "TSBRBCDEF" 


accord DU Ml SOL 

■' ter» P o rapide 
1 te-n’iPo 1 en t 


cr .■ — rou.si aléatoire 

î 0 DUR- 3+ 1 NT < RNDC 1 > * 1 0 > ' d u. r e e a. u h a. s ar d 

20 MT~IHKRND< 1 >*20 >+32 ' note au. h-3.5-3.rd 

30 # 

40 F LH Y u L=DUR.i N -NT ; M 
50 GOTO 10 


PLAY (n) 

play chaîne1,chaîne2,chaîne3 t ne bloque pas le programme pendant 
que la musique est jouée. 

L’instruction suivant play est exécutée immédiatement. 
play(N) teste si une voie est libre (n = 1,2,3) 
play(O) teste si toutes les voies sont libres. 

Le programme ci-dessous attend que la musique soit jouée avant de poursuivre 
l’exécution. 

10 R$-"eCDEFG" 

40 F'LRY 

50 1F F'LRY( 0 1 THEN 56 ‘ boucle ±' attente 

60 PR INT “suite " 


Celui-ci affiche l'heure pendant la durée de la musique. 

10 CLS 
15 TIME=0 
20 RS="BCDEFG" 

30 PLAY 

40 IF PLRYC 0 ;•=“ 1 THEN GOSUB 70 = GOTO 40 
50 GOTO 40 

60 ' horlo9e 

70 LÜCATE 10. 10 ; F'RINT TI NE •'50 : RETURN 


beep stoppe une musique en cours. 


10 CLS 

20 R$="RBCDEFG ,; 
30 F'LRY R$+R$+R$ 
40 •' 

50 IF INKEY$< > " " 
60 GOTO 50 


THEN BEEF 1 
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■ Morse ; 

Ce programme vous permet d’apprendre l’alphabet MORSE. Par exemple, en 
appuyant sur la lettre S, vous entendez 3 sons brefs. En appuyant sur 0 vous 
entendrez 3 sons longs. 


/;ï •• 

30 U..EHR 1000 
4M DIM riR$'." 36 ) 

50 DATA . - , 

30 DATA „ . - „ 

70 DATA . ..... . . „ , . , , ~ 

80 DATA - « ■ , . — , ••••-„ . p , - , . . - 

30 DH T h , - . — 

100 CL S 

110 FOR 1=1 Tü 26 • READ MR8*(I > : NE3T 
tü0 ’’ 

130 C$= INF'UT$C 1 • 

140 ' 

150 P=flSC< C$ >-64 : I F PCI OR P >26 THEN 130 
160 ' 

170 x$=rtF:s$c p > 

175 PR INT MR$< P 1 , n 
130 FOR P«1 TÜ LENv X$ > 

190 1F MID$CK$,P, 1 >=". 11 THEN PLAV H L12fl M 
200 IF MID*CX*,P, 1 >='■-" THEN PLAŸ r, L5fl" 

210 FOR TP=1 TO 20NCXT TP 
220 NE N T R 
230 GOTO 130 

25Ô POUR AFFICHER EN MORSE = 

260 '■ 175 PR INT MRS$< P > : " V; 

* Pour jouer avec le clavier : 

A chaque touche du clavier, nous faisons correspondre une note. 

i,j=j MUSIQUE CLAVIER suppression sono clavier 

30 DIM CL$< 40 >, NTE$< 40 > 

40 •' 

50 DATA Q, 03R , N , Û3E: .* E , 03C , R , 03D 
SA DAT A H . 04 A , 3 , Ü4B • D ■ ri4f: , F . 04D 
70 DATA FIN 
80 ' 

90 FOR N-l TÜ 40 

100 READ : IF X^FIN" THEN 15fl 
110 READ Y$ 

1 20 CL$< N ->=)<% : NTEÏ < N 
130 NEKT N 

140 1 

150 >•!$= INPUTîC 1 > 

160 FOR F-l TÜ N 

170 IF CL3K P THEN PLAY NTE$( P ) GOTO 150 
180 MENT P 
190 GOTO 150 



Table MRS${ ) 
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CL$( ) NTES ( ) 


Q 

<r+ 

03A 

w 

*r~> 

03B 

E 

<r-+ 

03C 

A 



s 



D 









LES FICHIERS I À A 
SÉQUENTIELS I 1 U 

■ O PF. N 

■ PRINT# 

■ INPUT# 


LOF 
CLOSE 
INPI; FS# 


LIN K INPUT# 
MOTOR 
MOTOR ON 


MOTOR OFF 
MAXFILLS 


DUPONT 


955-19-07 


R 

L 

c 

F 



Le stockage d'informations s'y fait en fin de fichier au fur et à mesure des arrivées. 
Une information particulière ne pouvant y être ensuite retrouvée qu après avoir 
lu toutes les précédentes (accès séquentiel), leur organisation est dite séquen- 
tielle. Les instructions d’écriture et de lecture sont analogues a celles de l'im- 
pression et de la lecture au clavier. (PRINT — INPUT). 

Dans le cas le plus simple, les enregistrements sont séparés, de façon interne et 
donc transparente à I utilisateur, par des caractères “Carriage Return (Retour 
chariot) et “Line Feed” (saut de ligne) (Codes ASCII 13 et 10). 

OPEN “U:nom-fichier” FOR mode AS #n° fichier 

Un fichier est ouvert en écriture (output), en lecture (input) ou en ajout (append). 


output : écriture 
input : lecture 

append : ajout en fin de fichier (disque seulement). 

Le lecteur de cassette est spécifié par “CAS S'il n existe pas de lecteur de 
disque, “CAS peut être omis. 


nom-fichier 


n tichier 


f 


f 


Qf» fiP&H "CHS 'ES3" FUR ÜUT'ir hû- 

/ » 


Unité 


L Ecriture 


open’* réserve une mémoire tampon et lui affecte un numéro (* 1 sur exemple). 
C'est ce numéro qui est utilisé dans les ordres d'écriture et de lecture. 
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Lors des operations de lecture et d'écriture, les informations transitent par la 
mémoire tampon. Pour une écriture, c'est seulement lorsque la mémoire tampon 
est pleine que le transfert vers la cassette (ou la disquette) a lieu, 

Remarque : 

open sert également a ouvrir des "canaux” vers des périphériques tels que : 
crt écran SCREEN 0 ou 1 
grp : écran SCREEN 2 
lpt imprimante 

{cf. chapitre 'Les éditions”). 

PRINT#, n° fichier, variable 
INPUT#, n° fichier, variable 

Dans le cas le plus simple, l’écriture dans un fichier séquentiel se fait par : 


PRINT # n° fichier, variable 


Si l’utilisateur programme : 


11Ü 
12 U 

120 

140 

150 


I H PU T 1 ' NÜM ( OU I- ' I N > " . \ lüh: $ 
I MP U f " TELEPHONE '' ï'PHüf; 

IF MÜNifi : ""F I N 11 TMEN CLOUE# 1 
FRI HT ttl.-NOM* 

P PI MT #1 . rpH* 


il y a écriture de 2 enregistrements qui seront lus par : 


INPUT # n° fichier, variable, variable 


270 INPin #1 , NOM sk* TPH$ 

2BQ PRIMT N0M$ .. T PH$ 

(Les 2 enregistrements peuvent egalement être lus par 2 instructions input*). 

Les lectures doivent, bien sûr, s'effectuer dans l'ordre où les écritures ont été 
faites. 

Attention : 


PR INT # ; NOM* 

PRINT #1,TPH* 

ne doit pas être remplacé par . 

PRINT #l,Nüri*,TPH*i 

Les variables seraient séparées par des espaces seulement (comme pour PRINT 
NOMS, TPHS à l'écran). 
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CHAINE COMPORTANT OES VIRGULES 

La virgule étant considérée comme séparateur, il faut, lors d une écriture par 
PRINT #, encadrer la chaîne par des guillemets (CHR$(34)). Elle peut ainsi être 
relue par INPUT #. 

Si les guillemets n ont pas été prévus à l’écriture, il faut utiliser LINE INPUT # à 
la lecture. 


P PIN T tfl , :.HE3\ 54 : = RUE$ i CHRstK 34 ) 


EOF{n° fichier) 


! Gui lerrets CKRSÎ3-L 


>5 

q ; "11. Rue NOBEL 



1 


V 


V'rçu.e 
(séparateur i 


Cette instruction repere la fin d’un fichier en lecture Elle doit être placée AVANT 
l'instruction de lecture INPUT #. 


Ztïfct 1F EOF». 1 L T HE H CLUSE #1 Où l'O 

Z70 J Ni"' U T #1 .NQî1$. TPH$ 


La fin des fichiers est repérée par le caractère CHR$(26). 

CLOSE # n° de fichier 

Transfère le contenu de la mémoire tampon dans le fichier puis libéré celle-ci. 
"close” sans numéro de fichier ferme tous les fichiers. 

- U USE: 41. 

Cette instruction est obligatoire. 

RUN, NEW et ENO ferment les fichiers mais pas STOP. 

INPUT$(N,# n° fichier) 

Lit N caractères d’un fichier. 

Les séparateurs sont traités comme les autres caractères. 

4j£f L*= I.NPUT SK 1 • #1 • 

LINE INPUT #n° fichier, chaîne 

Lit une chaîne de caractères (255 maximum) en ne considérant comme sépara- 
teur que le retour chariot (code 13). 

La virgule n’est pas considérée comme séparateur. 

50ft LINE INPUT 1*1, Lï U* 
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MOTOR 

Met en marche le moteur du lecteur de cassette et le stoppe (bascule) si la 
télécommande est connectée. 

MOTOR ON 

Met en marche le moteur du lecteur de cassette. 

MOTOR OFF 

Stoppe le moteur du lecteur de cassette. 

MAXFILES=nombre 

Définit le nombre maximum de fichiers ouverts simultanément (1 par défaut). 
maxfiles-o ne permet plus que la sauvegarde des programmes 
maxfiles réserve une mémoire tampon de 267 octets par fichier. 
maxfiles remet les variables à zéro. Par conséquent, elle doit être écrite en début 
de programme. 


10 y, =123 
MRXFILES-2 
30 PR INT a 

RUH 

0 


Un édition peut être provisoirement stockée sur cassette en ajoutant un numéro 
de fichier devant les instructions PRINT. L’édition des résultats se fait en lisant le 
fichier. 

Le programme ci-dessous, illustrant les instructions des fichiers séquentiels ne 
fonctionne qu'avec la télécommande, puisque l'écriture sur cassette ne se fait 
pas de façon continue. 


10 ' ESSAI FICHIER SEQUENTIEL CASSETTE ( AVEC TELECOMMANDE ) 

20 ' 

30 ' ECRITURE 

40 PRINT "PLACEZ LB TELECOMMANDE" 

50 PRINT "APPUYER SUR < RECORD) DU CASSETTE " 

60 PRINT "PUIS <RETURN>" 

70 C*=INPUT*r; i > 

60 

90 OPEN "CAS- ESS" FOR OUTPUT RS #1 
100 ' 

110 INPUT “NOM (OU FIN) " ; NOM* 

120 INPUT “TELEPHONE ";TPHi 

130 IF NDM$="F IN" THEN CLOSE# 1 : GOTO 190 

140 PRINT #l,NOM® 

150 PRINT #1 j TPHS 
160 GOTO 110 

170 ' LECTURE AVEC INPUT# 

180 ' 

190 PRINT : PRINT "REMBOBINEZ* SANS TELECOMMANDE > PUIS" 

200 PRINT "APPIJYEZ SUR <RETURN> " 

210 PRINT "PUIS <F'LRY/ (AVEC TELECOMMANDE)" 

226 C*=INPUTÏ( 1 > 

230 •' 


LES h K H IERS Sl .QUENTIFES 149 


240 GPEN "CRS : ESS” FOR INPUT RS #1 
250 ' 

266 IF EGF< 1 >-- 1 THEN CLOSE #l ; GOTG 320 
270 INPUT #1,N0I1*,TPH$ 

260 PR INT NÜM4> TPH$ 

290 GOTO 260 

300 -■ LECTURE RVEC I NFUTÏC J , # 1 > 

310 ' 

320 PRINT-PRINT "REMBOBÏ NEZC SANS- TELECOMMANDE ) PUIS" 

330 PR I HT ” APPUYEZ SUR <RETURH> lr 

340 PR INT " PU I S <PLRÏ> RVEC TELECOMMANDE V 

350 CS* INPUT*':: 1 ) 

366 ' 

370 OPEN "CRS-ESS" FOR INPUT RS #t 
380 ' 

390 IF EGF' ns-i THEN CLOSE #1=EN0 
400 ' 

410 C** INPUT*l I,#i ) 

420 PR INT C*.flSC<C*> 

430 GOTO 330 


^P6^iR L iuJ E ViÉëoPo> D CU CASSETTE 


PUIS <RETURN> 

NON COU FIN) * BRLU 
TELEPHONE ? 1111 
NOM COU FIN) î LRBU 


TELEPHONE * 2222 


NOM COU FIN) ? FIN 


TELEPHONE 7 3333 


REMBOBINEZC SANS TELECOMMANDE ) PUIS 
APPUYEZ SUR <PETURN> 

PUIS < PLAY > C AVEC TELECOMMANDE > 
BRLU 1111 

LABU 2222 

REMBOB I NEZC SANS TELECOMMANDE) PUIS 
APPUYEZ SUR < RETUF H > 

PLUS < PLRY > C RVEC TELECOMMANDE) 


RUN 

B 

R 

L 

IJ 


1 

1 

1 

1 


L 

R 


66 

65 

76 

85 

13 

10 

43 

49 

49 

43 

13 

10 

76 

6 
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■ Sauvegarde d’une table : 

Le programme de sauvegarde ci-dessous fonctionne avec ou sans télécom- 
mande puisque la sauvegarde de la table se fait en une seule fois 

10 SAUVEGARDE D'UNE TABLE 

20 FOR 1=1 Tu 5 

30 FK I 
40 N EXT I 
50 •' 

60 PR INT "APPUYEZ SUR < RECORD > puis < RETI iRH> 

78 C:i= INPUT*. : n " ' 

80 ' 

90 OPEN "CAS i TB" FOR ÛUTPUT AS 4] 

100 ' 

110 FOR 1=1 TÜ 5 
120 PRIAT #1 ,FK 1 :■ 

130 NEXT I 
140 CLOSE #1 

150 PRIAT "ECRITURE TERMINEE" 

160 LECTURE DE LH TABLE 

176 PRIAT "POSITIONNEZ ET F' LA Y " 

ISO OPEN "CAS = TB" FOR INPUT AS #1 
190 ' 

200 FUR 1=1 TO 5 
210 INPUT# 1, Ai I 
220 PRIAT RC I > 

230 NEXT I 
24 U CLOSE #1 

■ Formatage listing : 

Le programme ci-dessous permet de lire (comme un fichier) un programme sau- 
vegardé en ASCII (par SAVE) et ainsi de Tediter formaté à la largeur désirée, La 
télécommande doit être connectée. 


10 ■' FO RIT AT T AGE LISTING 

15 ' 

20 INPIJT "NOM PROGRAMME " ;NP* 

3W Lij-76 ' 1 .?.r-9eur edi*, ion 

40 OPEN "CAS • "+NP* FOR INPUT AS #1 
50 

60 IF EOF.: i )=-i THEN EHD 
70 ' 

80 LINE INPUT#!, LIG* 

90 IF LEN< LIG* IKLG THEN LPRINT LIG* GOTO Afi 
100 LPRINT LEFT* r : LIG*, LG > 

110 LPRINT RIGHTSC LIG*, LENT IIG*;:'-LG> 

120 GOTO 60 


U S MC HILUS SI 01 ![ NUI I.S 


Ci-dessous, nous utilisons l’éditeur BASIC pour composer un texte. 

Nous sauvegardons en ASCII le texte. 

gk 

10 - Cher Monsieur 

20 ' 

30 • BLHBLR 

save "LETTRE 1 ' 

uk 

Pour lister le texte sans les numéros de ligne, nous utilisons le programme ci- 
dessous. 

10 IMF 4 U T “Nom texte " NT* 

20 ' 

30 OPEN NT* FOR INPUT FiS #1 
40 ' 

56 IF EOF< 1 >=-l THEN END 
60 INPUT # 1 , HL I G 
70 LINE INPUT # 1 • L I G* 

GO LPRINT R IGHT*< LIG*, LE NC LIG* T- 1 > 

90 GOTO 50 

Ôk 

RUN 

Nom texte ? LETTRE 


PROGRAMMES 11 


JOUEZ EN BASIC MSX 

■ Le squash 

■ Conduite de voiture 

■ Bombardement d'immeubles 

■ Sauts d'obstacles 

■ Composition de paysage avec animation 

■ Biorythmes 


PROGRAMMES DE GESTION 

■ Tracé de courbe 

■ Fichier d'adresses 

■ Gestion de Fichiers 

■ Saisie d'écran 

■ Histogramme 

■ Histogramme en 3 dimensions 

■ Bibliothèque 


POSSIBILITÉS GRAPHIQUES DU MSX 

■ Dessin 

■ Trace d'un dessin par segments de droite 
et digitalisation d'un dessin 

■ Trace d’un dessin défini en data 

■ Dessinateur 

■ Interrogation de géographie 
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JOUEZ EN MSX 


JEl) DE SQUASH 


Vous devez faire rebondir une balle à I aide d une raquette que vous déplacez 
avec les 2 flèches 

La fonction STICK(O) permet d obtenir un déplacement plus rapide que la fonction 
INKEYS ; if n'y a pas le délai de répétition. 

On remarquera la boucle : 


330 FOR V I TO 4-NV 

Elle règle fa vitesse de la balle tout en permettant de tester le clavier 


XI X2 



10 

3CEEEN O 

COL 

OF 

4, 15 







20 

IMPOT "N 

s ve? 

H « | 

1 . 2 ■ 3 

■ " ■ MW 






30 

— . 

— 


[-■ 

e « i. - n t; 

F-rr 

• ;i i vi 




40 

>■£=1 3+NV 

*2 









50 

:-a = l : V 1 “ 

i ■ i ' 1 2 

« 1 

ÿ 


1 

i iï. 1 

i;.r- 

:• t.Ë r 1 '• "1 ! T 


6 Û 

KEV OFF 

;l3 









70 

JXFlTE 1 

21 • 

PR 

INT " 


>• i'./. r 

r . 3 . 

'i ! J 

F- l. l" F " 


00 

FUR X=X 1 

TÜ 

t ' . ill 

: LU LH 1 L X/Yl 

: P p 

I NT 


£Qû :■ : 

NE: : :t > 

00 

- UR V“Y1 

TÜ 

Cn 








100 

LÜCRTE 

: a .. 

Y : 

PP I H T 

CHR«-:2 

mm 





1 J 0 

L OCR TE 

•' û.. .* 

Y ' 

PR INT 

CHPSC : 

CO ; 





120 

N EX T Y 










130 

• 










140 

RB=0 





r 

= Le 

nd 

•ï-. 


150 

DX=1 LY 

. . . < 




' d 

HE P 1 

•LC 

F f'lFTït - 


lh.0 


i'C PNCK 

1 >*j > 

: YB--10 

t:. 1 

L4 1 1. 




1 70 

LOCH TE' 

: B • V 

B : 

PEINT 

CHftSK 2 

MM j 





1 80 

XR= 1 0 • Y 

Ysl 





■i i.l. 

ÜLt 

Kf- 


1 30 

EQ$=CHE *( 32 

) 


200 C I 


200 

)■+• 

l-HRSBC 208 !• 

+-CHR5i< 

200 

loch rt; 

;R“i 

•• ï 

Tl 

NT prj* 






210 



— 

— 



- de P 

I a-: 

e rn e 

nt 

b-*. 1 I p 


230 

L. OCR TE 

•■B, V 

B- 

PR INT 

CHR$( 3 

^ 

• 


i f^'i"errier:t 

b a 1. 1 e 

230 

XB-XB+O 

• : Y B 

— Y 

B+DY 



• 

n ri ij •,/!=• L l*i P 

oâ i t i 

740 

LOCH TE 

B.- Y 

E : : 

PR INT 

LH F: SC 2 

88 
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250 

IF X£-, 

:>X2“- 1 THEN ! 

DX~~DX ’ r^bOïïds- 


260 

IF ’• 

1+2 T HEM 0 

Y :, *^DY 


270 

1F XBX 

<1+2 THEN 0 

--d:-; 


2ÿ0 

23S 

IF XB.X 

• R -2 HND XB 

•v X R + 4 R ND Y B \ ‘ R - 2 I H E N D '\ ~ r r 

=RB-RB+1 

300 

.* 




3 1 0 

IF YB = 

>YR THEN LO 

CR TE 25 • 22 PR I NT RB ; " P o i nt= " 

• GOTO 410 

320 

.i ^ t 

- — 

— — — — ■- (J P 1 •?. H;’ |'i 1 ►i' ï i t V' ■? '1 U. £ *-■ L ^ 


3 'j-0 

FOR V* 

1 TO 4~NV 

vitesse 


340 

OS TI Cl 

*.< Q ) IF C-Ü 

THEN 3.9Û 


350 

' 




360 

IF G = 3 

THEN IF K R 

<K2-3 THEN XR-XR+1 


370 

IF C=7 

THEN IF XF 

>X 1+1 THEN XR-XR 1 


380 

LOCHTE 

XR-i -YR PR IN T R0$ 


330 

NE a T V 




400 

GOTO 2 

20 



410 

FOR TP 

- 1 H'j 1500 : 

NEXT Tp-GÜTn 43 



CONDUITE DE VOITURE 

En utilisant les flèches <— et vous devez éviter de toucher le bord de la route 
ainsi que les autres véhicules. 

La fonction STICK(O) permet d'obtenir un déplacement rapide du véhicule. 



10 ; CONDUITE VOITURE 

3 »"i ‘ - — d e s s 1 ïi v o 1 t U.r €' 

40 DAT fi 180.- 252 .• 180 -4S.- 48/ 180 .-252. 180 
50 ' 

60 SCREEN 0 : COL OR 4,15 KEY OP F 

70 yj-" i " •- caractère a. modifier 

6 D fiü= Biî'EE-. ' Pressé **n*r ateur de- eres 

90 fiC=fiC+H:.C/: V$ ' adresse caractère 

1 00 ' 

) 10 FOR M=fiC TO RC+7 REHD ND VPÜKE M, ND • NEKT M 
120 ' — 

1 30 LÏ-CHRS'. 200 /'+CHR* f 200 >+ '' . "+CHF:ï<. + 40Ü > 

149 flh*BfiSE':: 0 ^ ' adresse mémoire ecr ?.n 

1 50 — ► 
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iSb* CL S L OC H TF 1,1 ï-PIfr - "FLE - ET ~v 

l?y INFUr 1 RPFUYEP ■ U L ' '.PET «Jrh . '\>;ï 

1 8Ô XX- lu • l . - . j - 

, - .... . L '..'f d ■=< ? cHç Pi’t.i” 

1 .H.J >,V=; vy,v . , rhl ,-,. u 

(H h V-'- r 

210 f» KM~1 TÔ KÎÛI 0 " r "' ! " n " e ' üîî ' , ' : ' 1 ’ ••••‘ 5hjcui ‘ 

220 INI PNC'".' 1 ;• t - 1 ■ _ ] _ f. t + j 


îj 7. cr 3 : 'i ' ’j. uF i ji L 

THE N LüC R T E X +RI \l«. 1 '-4 5+4 . El PF I N T V $ 
■•■'4 THE N z TR • t e . t ..-çk;.- ü Ijp 

! THEh 370 1 t.ç±t. ~ 1 h' -.j fi It..ç 

: E > ‘ LUL-HTE XV XV FP'ÏMT VS 

THfc.IT 35U t- ëift r I .* v i c r 

9.?i. c* 1*7 

droite 


210 

FOR KM— 

1 Tu iOui. 

220 

;-:=i NT-: 

PNC'".' 1 

4 30 

XX-XX+X 

240 

IF XX 

23 T Ht n • 

2T»0 

ÏF XX. 

j THE n x: 

260 

LGCR TE 

XX; 2 3 Pt 

27* 

IF FM. 

30 THLM J 

280 

TF VF'EFL* hîl+YVN 

290 

IP vPLEF'' mN+'i V t 

30 fi 

LOCh TE 

fi/.- R . - 1 

310 

HX-XV 

fiï'-VV 

32 Q 

C “ST II. 

M. 0 .' IF l. 

:3 30 

if c=r 

then 

340 

IF L-S 

ÎH En XV- 

350 

T« 27 i"i 

NEXT F N 


370 

COL DP. r 

•1 H 0= T F 

3:3m 

flm.- -r". 

EF ' ' L02 HT 

3ÿô 

FÜF TP- 

1 TO 150P 

40ô 

CÜTO lb 

0 

410 

, — 


420 

• r 

: 1 i9" 


1 i 9 - - 1 ?u 4 e * F c»-- r •+••." + 4 s p 


BOMBARDEMENT D’IMMEUBLES 


En appuyant sur “ESPACE", vous bombardez des immeubles 
meubles 0 ^ descend Progressivement et ne doit pas s'écraser sur les im 


I j M 

; ï r i 

L ...J L_ J 

î J 

/ i . 



I i — j L_ . 
Ih n r 


Quatre projectiles peuvent être envoyés simultanément. 
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10 , BOMEflRDtflEHT IMMEUBLES 

3© CLS INPUT "Niveau. U, 2, 3 » " - HV _ 

40 > 3 i- , ?i rs.ct e r e s r e defini s 1 m rû e r J. b 1 e / s ou. u u,i- <='«'* 

5Q C'FtT Fi 252 / 13 4,- 1 42 .• 1^2.' 1 lo^.' 

bü DRTfi 48 , 43 ,48.120/ 252 . 252 . 252 , 2 0*2 
70 DATA 0. 0. û> 340. 0.- Ô, 0.- 0 

30 ' _ , __ 

90 SCRE EH 0 1 COL OR 6*15 = Km UFr 

100 1er carac^e-re a modifier 

110 flG=BRSE<2> ■' adress* 9e nera t sur de carac 

120 RC-RG+RSCC C$ 3 " adresse 1er caractère rede* 

139 t ... . ... 

149 FOR H= 1 TO 3 3 caractère 

1 5û R-fiC'K N-l >#8 _ _ 

169 FOR M-H Tü fi+7 PERD ND • VFÜKE Ma HD : NtXT M 

179 N EX T N 

180 — 

190 C~RSC''. C$> ^ 

2Q 0 DESSIN IMMEUBLE* 

210 XB=2 '• YB=21 ■ CLS 
220 FOR N=1 TÜ 5 

230 H-RNDC 1 >*3+4+NV L=RND>'. 1 >4:3+3 

240 FOR Y—YB-'H TO Y B 

250 FOR X=XB TÜ XB+L 

280 LOCH TE X / Y : FR I HT UHR$v. 6 - J 

270 H EXT X 

280 NEXT Y 

230 XB-XB+L+2 

3Ô0 NEXT N ^ , . . , 

ü® toont 

330 AH-BflSE<0> ' adresse écran 

340 YS=2 : X 1 = 1 ■ X2=3 F : 5= 1 '' soucouP e/ bornes/ se > 

350 SOUND 8.- 12 ; SOUND 1 ; 0 1 SOUND 7/254 

360 F OP XS=Xt TO X2 3TEP S 

370 IF YS>1é THEN SOUND 7, 255 : GOTO 21U 

380 1F VPEEPX fit'1 + 4+KS+'ï'S:*:40 :'=HSC'; C4 > THEN 530 

330 LOCfiTE XS-S.' YS ; PRIHT CHF'.ÏC 32 ’>> 

408 LOCFITE X.S/YS ■ PR INT ÜHPS 1 -. L+l >.• 

410 SOUND 0.XSTL ^ 

420 IF INKEYS="” THEN 470 ' de Part Projectile 

FOR 1 = 1 Tü 4 , „,. T _ 

IF YF< I >=Û THEN YF( I l'=YS+l XHC I .'=<■■* ■ LUTü a f 0 

H EX T I 


Ü J t C 


ctiles j> 


t-tres 

irti 


a v a r c e- P v • o -J e- c t i 1 e s 


43Ü 
44Ü 
459 
469 ' 

479 FOR 1=1 TO 4 

IF YF\ I >=0 THEN 520 , ... 

LOCfiTE XF( I X* YP( I • F K I H ? lHKÎv .■■■* . . . 

YPC i >= Y p( I H 1 •• LO C RTE XF( I > , Y F-'. 1 ‘j _ FR I - • UfK* - 4 
IF Y PC I >>£U THEN Y P 1 - 1 >-9 : CüTU 520 
NEXT I 

530 NEXT XS .. .-. , 

540 LOCfiTE XS-S/YS -PRIHT CHRS'l 34 .G S/lhF aI./.c-o— = 

550 Y3=Y*+1 
560 GOTO 369 
570 ‘ — collision 


4o0 

490 

500 

510 

520 


•■r ciuri 


530 PLRY~"CDE" FOR TF-1 TO 1000 NEXT IP GOTO 
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SAUTS D'OBSTACLES 


En appuyant sur ‘ESPACE" \ vous devez sauter des obstacles aléatoires. 



Deux sprites représentent la position normale et la position de saut. 


20 CL EH P 1000 


30 CLS INF' U T 

"Ni 

-■ ■>' i.l i 

1 • 2 


3 • 4 • 

% H V 

40 C 

;E=1 CF= 

1 C 

1 




ecr 

■ . L 0. 1 " î o . i cj 

50 C 

■ÛLÜR CE 

, r 

:f ■ 3 

L PE EN 

D_ i 




60 F 

DP S*i 

rc 

i 2 




• 

P* l c _ i v> 1 * 

70 

FOR ! ™ 

i 

ro 

4 H3P j: 

l=! 11 

n 

NE; ' ! 

: 

80 

FOR N= 

i 

TO 

4 





90 

FUR I 

-• î 

TU 

; 





100 

PERL 

v 


• N 

N ■' 

-h 

CH r*-; 

: ;i 

110 

NEXT 

I 







120 

NEXT N 








1 30 

SPRI TE$v 

ÿ ;.i- 

Fl !•: 1 

<L 

3+H$ 

.h-mîT 4 .• 

140 

NEXT 3 








1 50 

• — ~ — - 

— 

— 



— 

... 

— P 0 

s : t- l on ï r-;;i. i. 

ISO 

DRTR S.- 

3 . 

3, 1 

, M 3 . 

1 : 1 




170 

DR T R 3, 


6, 4 

j. lL .• O - 

12- 

0 



130 

DR T H 12 

r! 

128 

, ; 28 , g 

. 0 , 

i: 

9 2,9 b 

: , 0 

1 30 

DH T R 12 

y • 

192 

• -6, 32 

, -'2 


32 , 48 

P 

200 

•' — *- 

— 




- 

p 

üSïtiüiï j-!. 3,1.1 1 

210 

DhTR 3. 

; , 

3, 1 

, : 5, 1 , 

1, 1 




220 

DRTR 3, 

2 .• 

b , 2 

8 1 S , 0 

• 21, 

0 



230 

DhTR 123, 

128 

, . 38 , 0 

, 0 , 

\ 

i î 

20 0 - 

0 

240 

DRTR 12 

fi 

C 1 

1.92: 

■46,48 

, 24 

• 0 • D , y 


250 

' esas-ssas-s 


~:r = 

s'sssKSSt: 






£60 OPEN 11 GR P : F- jR QU TP LH RS ttl 

27Ü DRRU "BM 10 • 1 6».* " • PP 1 NT # 1 , " R RP L'Y E P SUR < ESPACE } " 

280 V= 120 ■' ' fcl'z-t CÜ-'1 1 •“ 

2-0 S := 5 ■' .« y a yicç 

300 LINE U ,Y;— :£U0/rS'Jl 

310 ' 2 CB 3 T Ri 'LES RU H RS. R PL 

320 XBL 1 >=INT< RNP* 1 -'Tl 2 40 : XB\ 1 j+INIY RNIY 1 Yt-j .'$.:=;+4@ 

Ü|0 EDF' 1 = 1 T'Ü £ LINE C XEK I > • Y XB 1 . I ■ Y -5 .. 1 N EXT I obstacles 

350 FOR X-tü TO 2H0 STE P S 
360 PUT SP RI TE 1 X~Y '-1 S ’• , 6 , 1 
370 F DR 1=1 TO 2 

380 IF \OÆ'. IV, t:S R ML' 1 X B 1 J 1 THE N 4£Fi 
390 NEXT I 
400 CrÙ T IJ 460 
410 ' — 

420 RT-RT+1 : ['RR N •' B PU Û • 170" : SCLOR CF : PR INT # 1 . S T p- tNG$r 1 . i .HR$t' ''00 « 
4 3 0 C OL DR CE DP RI " B N 1 ü , 1 7 0 " P R 1 N 1 # 1 . P T ; "PRTE C " 

440 BEER 


PROGRAMMAS ! 15 <* 


46Ô IF INK Eï$ : > " ,r T HEM ^ÜSUB 5JÜ 
470 FOR TF--! Tü 20~NV*:J- -NEX7 T t: ' 

480 H EXT < 

490 FOR 1-1 TQ 2 LINE 0 : !E\ I .■ .■ V •' B 3 •' • ' • 5 .' = LK • ML. : I .1 
500 PS-PS+i IF PS = 10 T'HEN C$- ; NF'Uïÿc; l .• ENL* 

510 GOTO Lÿ»"i 

520 ' OO IJ T 0 BOT R CLE 

530 IF T IMF-:: S THEN T IME “O : REl URN 
540 PUT SFR I T E 1 , X , 20? • , 0 1 
550 PUT SPPITE 2,C;,Y--25'-6 2 
56Û FOR TP- 1 TÜ 308 : 4EX T TF 
570 PUT SPMTE Lv-X 26? .*.■ *5,2 
580 X=X+3*S 
590 T LME -8 
600 RETIJRN 

COMPOSITION DE PAYSAGE AVEC ANIMATION 


A l'aide de 3 figures de base (arbre, maison, locomotive), vous composez un 
paysage. Le choix des figures se fait à l aide d'un curseur que vous déplacez 
avec les quatre flèches. 

En frappant “P 11 , vous "prenez une des 3 figures de base (BEEP signale que la 
figure a été choisie). 

“D” permet de "déposer" la figure choisie. 

La couleur se choisit en frappant 1 ,2,3, . 9 

Pour animer une figure, placer le curseur devant elle puis frapper “4 J! ou 
(une ou plusieurs fois). 

Une figure animée peut également être stoppée. 



^0 CE=1 : CF=15 COLOMB 
30 SCRE EN 2,2*CL=CE 
4Ü 


LT ION PAYSAGE 


AVEC ANIMATION 


50 XC-ST10 ; YC=3£10 •' curseur 

60 0 IM 32 ">> TY 32 ') > V< 32 > 

7Ü NS =3 nombre- de t i9»j.res de b-3.se 

8Ü NN=N3 nombre de figures 


90 OP EN "GRP : " FOR OJJTPUT A3 #1 

100 FRESETC 15, 145 >= FR INT #1 , "CLAVIER MAJUSCULE" 

110 PSETC 15, 155 SPRINT #1, "FLECHES PUIS:" 

120 PSET <15, 1 65 > : PR I NT #1 , "P : PRENDRE^ D ' DEPOSER ,r 


160 BASIC MSX 


130 PSETC15, 175 SPRINT #1,"CQUL: 1,2,3, 

14 û ARBRE 

150 DATA 1,3, 7, 7, 15, 15, 15,31 
1 fc'Ô DATA 63 ,63,63 , 3 .*3,3,3, 15 
170 DATA ÿ. 128, 192, 192,224,224,240,248 
1 o y DATA ti4b , 24 y » 24 o , 0 , y , 0 , 0 1 32 

198 ' MA I SON 

208 DATA 12, 12,63, 127,255,64,95,85 
210 DAT H 95, 35, 85, 35, 95, 64, 64*127 
220 DATA 0 , 0 , 248 , 252, 255 ,2,2,2 


238 DATA 122,74,74, 106, 74, 74, 74, 254 


£4 8 •' LOCOMOTIVE 

25ü DATA 0, 0, 6, 0, 16,0,43,48 
26 Û DATA 127, 127, 127, 127, 255 , 25-5 , 43 , 43 
270 DATA Û . 8, 8, Ü, 254, 192,254, 254 
280 DATA 254,254,254,254,255,255,24,24 

290 J 

380 FOR 3=1 T0 NS 


318 FOR 1=1 TO 4*S$< I >=" M : N EX T I 
328 FOR N=1 T O 4 


230 FOR 1=1 TO 3 

340 REhD X = S$a-0=S$(H>+CHR$CX> 

35Ô NEXT I 

368 NEXT N 

370 SPR I TE$( 3 ;=3$C 1 )+S$< 2 >+S$f 3 )+3$C 4 ) 
380 NEXT S 

390 ' Affichée sPrites de h-3.ee 

480 FOR 1=1 TO NS 

410 X< I >=16 : Y< I >=1424 

420 RUT SPR I TE I , ( XC I > , Y( I > >, 4 , I 

430 NEXT I 


440 AIGUILLAGE 

450 GOSUB 620 

460 IF Cï» "P" THEN GOSUB 810 
470 IF «-"D" THEN GOSUB 890 
430 GOTO 450 


+ 


VITESSE 


ri 


610 ■- GESTION CURSEUR 

620 CS=INKEY$ IF CSO 1 "' THEN 680 

630 LINEC 'AC, YC XC+4 1 YC )> CE B! 

648 L I NE< XC , YC XC+4, YC ) , CF 
65Û GOSUB 370 
660 GOTO 620 

670 ll< 

630 c=irsc( cs , r é( 

690 IF C=28 THEN IF XC<240 THEN XOXC+3 

700 IF C=29 THEN IF XC>16 THEN XC=XC-3 

710 IF C*30 THEN IF YO10 THEN YC=YC~8 

720 IF C-31 THEN IF Y<130 THEN YC=YC+ft 

720 IF C$="P" THEN RETURN 

740 IF CS="D‘' THEN RETURN 

750 IF VflLCC$,>0 THEN CL=VhU CS > 

760 IF 0*=”+" THEN V=1 GOSUB 1060 
770 IF CS="- , ‘ THEN V=2 ; GOSUB 1060 
780 GOTO 620 
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790 J OH PREND 

800 ‘ BEER signale la figure est 
310 SS™0 

320 FOR 1=1 TO NS 

830 if >xx i > mhd xc<=xci >+8 hnd 

TH EH 360 


840 

850 

360 

870 

880 

890 

900 

910 

92Ü 

930 

940 


N EXT I 
RETU RH 
$S=I BEER 
RETURN 

1 ON POSE 

IF SS=0 THEN RETURN 

IF N N >3Û THEN RETURN 

IF XC< 35 THEN RETURN 

NH=NN+ l ^ SFR I TE* < MH >=SPF: I TE3X SS ; 

PUT SPR I TE NH , < XC .• YC J , CL , NN 

Y< N N >=YC : XX NN >=XC 


950 RETURN 

960 ' RVRNCE 

970 FOR I-NS+1 TO HN 

980 IF '/■' I >-0 THEN 1039 

990 XX I I I > 

lûOÜ IF XX I ><35 THEN XC I 

1Û1Û IF XX I >>229 THEN XX I >=35 

1020 FUT SFR I TE I j < XX I > > Y ,: . 1 > > .- y I 

1G3Û NEXT I 


•:ho î s i e - 

YC=>Y< I > 


R ND ï'.-: 


1040 
1050 
1060 
1Û70 
1080 
1090 
1 190 
1 î 10 
U 28 
118Ü 


RETURN 

-- — REULRûE VITESSE 

FOR 1 =M3+ 1 TO NN 

IF YC=>YC I > HND YC< = ï y I >+ 16 THEN 1110 
NEXT I 
RETURN 

IF V=1 THEN IF XC >28 THEN V< I >~v'.. I >+l ■ v-0 
IF V=£ THEN IF MC >33 THEN V< I :*-V< I >-l : V-8 
RETURN 


BIORYTHMES 


. =Y( I >+8 


Il existerait chez l’homme des périodes ‘positives et des périodes négatives 
réglées par des “horloges internes” indépendantes de l’environnement extérieur. 
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□ Cycle physique de 23 jours ; 
ü Cycle émotionnel de 28 jours : 
n Cycle intellectuel de 33 jours. 

On pourrait ainsi connaître à l'avance les jours favorables. 
J o o. r s e o u s : 18 9 



1 




31 


E L E U : F H V 5 I G! U £ 
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If 1 ' BIORYTHME 

20 PI ~3. 14159 
30 DIM FlUÊ), JM< 12) 


OO DRTFl 3 1 * 23 - 25 .. 3 1 • 30 , 3 1 .. 30 , 3 1 , 3 1 , 3Q .. 3 1 , 30 3 1 

60 FOR 1=1 TU 12 : RC I }=fi( I 1 > PERD X ; RC I }=-K I >+X ; 

J: K I Y-X H EXT I 
7 0 C F' = 2 3 ^ C E - 23 • C I “ 3 3 
00 •' 

30 S CIREE H 0 

100 PR INT "NRISSFINCE = " 

1 1 0 I H PUT " JOUR , MO I S , FIN ( EX = 5 ■ 4 , 1 334 > " ; N , MH.- RH 
120 IF RN< 1300 OR FIN >1333 T H EH 110 
1 30 J- JN : ri='l'1N R :::: HN ^ GÜSUB 2 lu XV» JV 


150 PR INT "BIORYTHME = " 

160 IMPOT "MOIS.- RN C EX 1 10.- 1384 > " .N1B.-HB 
17t3 IF fl EK 1300 OR FiB>1333 THEN 160 
1 30 > 1 = M--MB Fl = Fl B : GOSUB 210 = NJOl'R^JV-XV 
130 GOTO 240 

200 CALENDRIER 

2 1 0 N- =365 . 25*< Fl- 1 30 1 >+Fl( M >+J 
228 JV~ : I NTC N > 

230 RETURH 

235 ' RPF ICHHGE COURBES 

240 COLOR 1 , 1 .5 = SCREEH 2 
250 SCREEN 2 

260 OP EN "GRF ” FOR OUTPUT RS #1 

278 PRE8ETC 18, 1 60 ) : PR I. HT #1, "BLEU = PHYSIQUE" 

230 PRE SE TT 18, 1 78 > PR I NT #1 , " NO I R = EMOI I ONNEL " 

290 PRESETC 18, 130 > = PR INT #1 , "ROUGE = INTELLECTUEL." 
300 PRESET':: 1 8 ■ 30 > = PR I NT # 1 1 SFCC 1 0 > i 1 5 SPCC 1 0 > 
318 LINE (10. S 0 > - ( 2 3 8 , 8 0 } , 1 


328 K=0 

330 FOR 0-1 TC 


JM'.: MB > 


340 

Pi=5@:t-S 

I NC t 

K+N 

o 50 

P 2=50^8 

J.N( 

K+N 

368 

P3=50*S 

I NC < 

K+N 

370 

X-0T7 +10 


380 

LINE ( Y 

.. 30- 

-PI > 

330 

LINE < Y 

, 86- 

-P2 > 

400 

LINE <;* 

80* 

-P 3 > 

410 

K=K+ 1 



420 

N EXT D 




TPI/'C 
W I • c 
* P I /C 


F> 
E > 

I > 


430 PRESETC 10.-1 0 > = PR I HT # 1 , " Jours vécus 
440 C$=INPUT$C 1 ) 


— , il . 


N JOUR 


1 
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PROGRAMMES DE GESTION 


TRACÉ DE COURBE 


Ce programme trace la courbe d’une fonction écrite en 400. 
Les échelles sont calculées par le programme. 


i .-8 145684 7940 1 3 



-4 


312 5 


3 7 5 4 2 


r—i 

J 


1.0 ■; trace de courbe 

4.0 

40 HEtR=150 ; LECR:=200 ' hauteur."' 1 nn-ai I PI i r- orra f 

50 INPUT "Borne- xl ";Bl " *" " 

00 INPUT "Bor ne x£ ":B2 
?0 INPUT "Pas "PAS 
80 SCREEN 2 


100 ■ recherche mini /ma xi y 

110 X=B1 GOSUB 400 Y1=Y Y2=Y 
126 FOR X=B 1 T0 B 2 STEP PAS 

139 GOSUB 400 

140 IF Y< Y 1 THEN Y1»Y 
150 IF Y>Y2 THEN Y£=Y 
160 NEXT X 


170 EX=LECR.-"<B2~B1 ) 

1 80 EY*1 HECR-2 )■- ( Y2-Y 1 > 

190 •' AXE Y 

200 IF B2=>0 RND E1<=0 THEN X="EX#E:i • LINE (. X> 1 X . HECR ) , 1 
4i0 ’ AXE X 

220 IF Y2 = >0 AND Y1<=0 THEN Y*HECR+Y 1 :*EY -LINE < 1 . Y W LErp . Y 

230 COURBE 

240 FOR X=B1 TO 62 STEP PAS 

250 GOSUB 400 

260 SXKX-BlYfcEX 

276 SY=HECR~< Y--Y1 Xt'EY 

280 PSET<SX,SY 1 

290 NEXT X 

30 0 ' AFFICHAGE EXTREMES 
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305 

OP EN 11 GP P 1 

" FOR OU T POT RS 

#1 



310 

Y=HECR-ElBS 

( Y 1 

}*EY+3 : X=i =B 

«B1 : GO Si 

JB 

370 

320 

Y=HER-HBSC 

Y 1 ; 

*EY+3 : X-LECR 

-9 ; B-B2 

GC 

SIJB 

330 

Y=HECR+4 : X 

~RE? 

S<B1 >* EX=B-Y 

1 * GO SUE* 

37 

0 

240 

V=5 ^ 

Bi : 

*EX : B”Y2 : GO 3 

UB 370 



350 

C*=1NPLIT4( 

î > 





355 

ri 

END 






370 

IF X>LECR+ 

10 

THEN X-LECR- 

2 



371 

IF Y >HECR+ 

10 

THEN Y*HECRr 




375 

DRAW n BM=Y 


Y; " PR INT #1 

, B 



380 

RETURN 






390 

/ 

— 

rou.rbç 

•? tri" 

er 


400 

Y ”3 1 NC x 






410 

RETURN 







FICHIER D ADRESSES 


Le programme ci-dessous permet d'introduire et de modifier des données indé- 
pendantes du programme. Elles sont temporairement stockées dans des tables 
qui sont ensuite sauvegardées sur cassette. 


RANG 


N0M$( ) RUEÎ( ) VILLES! ) 


DUPONT 


RUE XXX 

PARIS 

MARTIN 


RUE XXX 

i D0MFR0NT 

BREBION 



1 i 

BREBION 


RUE XXX j 

BAYEUX 


Sauvegarde sur cassette 
ou disquette 


NÛMS( } 


La variable “RANG” donne l'adresse de rangement dans les tables 
Le mode X” permet à la fois de créer et de modifier des fiches. 

En mode modification, ia valeur de chaque zone est affichée puis le programme 
attend une nouvelle valeur. 

Si vous ne voulez pas modifier une zone t appuyez sur “RETURN sans entrer 
de valeur. 

L’utilisation de l'instruction LINE INPUT (au lieu de INPUT) permet d’introduire le 
caractère virgule dans les zones. 

L'instruction 310 peut être remplacée par : 

310 IF NOM$ = LEFT$-NOM$(RANG),LEN(NOM$) THE 390 
On peut ainsi entrer seulement les premières lettres du nom. 
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Pour obtenir une liste triée par noms, nous remplissons une “table des Clés” 
CLE$() avec les clés à trier. 

Dans une “table d’index” IX%(), nous rangeons les numéros de ligne (1 , 2, 3,...). 


CLE$t ) IX%[ ) NOMS! ) RUES 



« 

Nous trions les tables CLE$() et !X%{) 


CLFS{ J IX%( ) NOMS! i RUESi 1 



Ces tables n'ont 
pas été modifiées 


Après le tri T il suffit de lire la table IX%() pour éditer les adresses dans l'ordre des 
noms. 

TRI-SÉLECTION 

Pour obtenir la liste triée des personnes d une seule ville, il suffit de sélectionner 
les noms ainsi : 

INPUT « Quelle ville »,V$ 

IFVSo VILLES(F) THEN ... 

TRI-MULTICRITÈRES 

La liste alphabétique des clients dans l'ordre des villes s'obtient en faisant : 

CLES(F) = V!LLE$(F) + N0M$(F) 

au lieu de : 


CLES(F) = N0M$(F) 
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CLESC ) 

BOULOGNE MARTIN 
BOULOGNE VINCENT 
PARIS DUPONT 
PARIS DURAND 


SUPPRESSION 

Pour supprimer une fiche, nous décalons toutes les fiches en aval de la fiche 
supprimée. 

L’instruction SWAP nous permet de décaler les éléments sans provoquer de 
réorganisation de l’espace chaîne. 


Fiche 

supprimée 


N0M${ ) 




APRÈS 


10 • FICHIER O' ADRESSES 

20 ■ 

30 CLE RR 5000 

40 DIM NOM*< 100 >j RIJESC 100>>VILLE$C 100)jCFSTÏC lPin > 

59 DIM CLE*< iÿÿ >i 100 > 

6û NFlLH=ü *’ nombre de fiches 

70 CLS IHF'UT "Nouveau fichier OÜ/'N) %ft$=IF R$="0" THEN 100 
8Ü GOSUB 77y 
90 ' 

100 CLS ; FRI HT 11 MODES 3 " 1 PR INT 

110 PR INT TFiBC 3 )i "C : CRERT I ÜtVMOD I F ICRTIÜN" 

120 PR I NT TAB<3)i"LF «LISTE DU FICHIER" 

130 FRI NT THBC 3 >* M FIN -FIN DE SESSION< SAUVEGARDE 
140 PRINT TAB< 3 >i "LFN 3 LISTE DU FICHIER P R R NOM" 

150 PRINT TAB<3)i"LFV : LISTE DU FICHIER F'RR VILLE" 

160 PRINT 11 ! IN PU T "MODE "jM$ 

170 IF M$="C U THEN GOSUB 260 
180 IF N$="FIN M THEN GOSUB 640 
190 IF M$="LF " THEN GOSUB 920 
2Ü0 IF MS**" LFN" THEN GOSUB 1030 
210 IF N$-"LFV" THEN GOSUB 1400 
220 IF m=" S 14 THEN GOSUB 1540 
230 GOTO 100 

240 CRERT ION ET MODIFICATION =««=«■ 

250 ' 
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260 PR INT 

2?0 LINE IN PU T :, NÛf1C OU <RETURN> >? Jl ; NQM$ f I F LEN< NOM* >«=Ü T H EH 
RETURN 

250 IF NFICH-0 THEN 340 
300 FOR RRNG-1 TÜ MF I CH 

310 IF NOM$=NÜM$\ R PNG ) THEN 390 •' non existe t-il? 

32Û N EXT R HH G 

330 ■’ *iouve a w nor'i 

340 PR INT : R$=" " IHPUT "Nouveau non OK CQ/N) 11 ; R$ 1 IF F:3K>"0" 
THEN 260 

35Û HFICH-NFICH+1 
36Ü FhNG-NFIÜH 
370 NÜM$C RANG >- NOM* 

3oü 1 — entree/modif zones 

39Q PR INT 

400 F' R I N T RUE $■:' ft HH G > > T R B ( 1 5 ) ; ■' 3. ne i e ïï n e v . 3 . 1 e u.r 

410 LINE IHPUT 'Ru.*? ,J ;PUE$IF RUE*<>" " THEN RUE«< RANG >=RHE« 

420 PR INT VILLES RANG )jTABC15;; 

430 LINE IHPUT "Ville? " j VILLE* 

440 IF V I LLLE$< /" 11 THEN VILLE$< RANG >=V ILLES 

450 PR INT CPST*; RANG >; TABt 15 )j 

460 LINE INFUT 11 Code P estai? 11 j CPST$ 

470 IF CPST$<>" " THEN CPS T $< RANG }=CPST$ 

430 ijQïlj 260 
490 ' 

500 '' Ci Ti st r ij. c t i o n 310 Peut ç t r e cha n9 e e Par" 

510 ' 31ÿ IF HÜM$=LEFT$< NOMS, LEHC NOM* > THEN 390 
5xü 1 ceci P er n e t d ' en t r e r s eu. I e ni e n t les P r e ni i e r es I e t Lr 6' •=. d i » 
NOM 

630 ' , =^===^™===:= :s =«==r ;5 == t ===== SAUVEGARDÉ 

640 PR INT ! PR INT 11 APPUYER SUR < RECORD > PUIS < RETURN > M 

650 XÏ-IHPUTSC 1 j 

660 OPEN "CRS : ADR" FOR ÜUTFUT HS #1 

6 r' 0 

630 FOR 1=1 Tü NFICH 
690 PR INT #1,N0M*<1) 

7Ü0 PR INT #l,RUE$a> 

71Ô PR INT #UVILLE*a> 

720 PR INT #1 > CPST*< I > 

730 NEXT I 
740 CLOSE# 1 
750 RETURN 

7 6Ü = = LECTURE FICHIER 

770 PR INT : PP INT "APPUYEZ SUR <PLAV>“ 1 PR INT 
780 OPEN "CAS 1 ADR" FOR INPUT A3 #1 

790 ' 

300 FÜR 1=1 TÜ 100 

Blû IF EOF< 1 )=-l THEN NFICH» 1-1 «CLOSE #1«GOTO 880 
82G LINE INPUT#1,NCM*< I ) 

830 LINE INPUT#l,RUE*a> 

840 LINE INFUT#1/VILLEÏ< I) 

850 LINE INPUT# 1 , CPST*< I > 

860 NEXT I 
870 STOP 

880 PR I NT : PR I NT NFICH J "NOMS" 

390 FÜR TP=1 Tü 1000i NEXT TP 
900 RETURN 

9 10 ■■= 3 ==^ 5 =«==«=x«= sa n= M LISTE DU FICHIER 
920 CLS 
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930 PR INT "LISTE DU FICHIER" * PR INT 
ÿ40 ‘ 

950 FÜR F=1 TO MPI CH 

960 PR I NT HCiM$C F ) ; T HER 1 3 > ; 

970 PR INT VILLES-: F 
5c*ü P K INI 
990 HEXT F 

1Û00 PRIMT : INF'UT "RP FUYEZ SUR < RETURN > M » X$ 

1010 RETURN 

1020 LISTE TRIEE FR R NOM 

1630 FOR F =1 TC NFICH 
104O Cl.E$C F >-NOM$>l F > ■ I X';< F '‘-F 
1050 MENT F 
1060 •' 

1070 NCL-HFICH 

1080 G03UB 13 CG ' 3.P P •=■ \ tri 

1 0ÿÜ •' 

1100 CLS : PR INT "LISTE TRIEE P RR NON" : PR INT 
1110 FOR F=1 T G NUL 

ii20 f > 

1 1 30 PR I NT NOM$< ) > TAB< 1 5 > j 
1140 FR INT V ILLE $-•. X > 

1150 N EX T F 

1160 FR INT • INF U T "APPUYER SUR < RETURN > " X$ 

1170 RETURN 


1 270 •’ TRI SHELL 

1280 ECART CL 

1290 ECfiRT^IHT‘1 ECRRT/2 > : IF ECART < 1 T H EH RETURN 
1300 IV- 0 

1310 FÜR 1=1 TÛ MF-ELflRT 
132E 1 .J- 1+ E C RR T 


1330 IF ÜLE$v J >CLEL$C I > THEN 1360 
1 340 SWflP CLE$( I > .• CLE$< J > : IV* 1 
135Ü SNflF 1X*.< I IX'.*, J > 

1360 HEXT I 

137Ü IF IV* 1 THEN 1300 
1 3G0 GOTO 123Ü 

1390 ^ «===.====«=«»« LISTE TRIEE PAR VILLE 

140Ü FÜR F-l TÜ NFICH 

1410 CLE*< F X-V I LLEüv F > ; I XXC F >=F 


1420 N EX T F 
143Ü HCL-NFICH 

î 44 m GiTSUB 128Ô ‘ 3PPel tri 

1450 CLS : PR I NT "LISTE TRIEE PAR VILLES" = PAINT 


1460 FOR F- 1 10 MCL 
147Ü X-IXXC F > 

1 4 oû F R I H T V I L L E $< X > > T A B- ' 1 6 > ; 
143ü PR INT NOM®' X) 

15Ü0 N EX T F 

1510 PR INT • INPU1 "APPUYER SUR 
152Ü RETURN 

1540 FR INT UiOM^'”' • 1NPUT "NON " 

J Cj CT ^ 

156Ô FÜR RRUG-1 TO NFICH 
1570 IF NOMÎC RANG >«NÜH* THEN 16 
1583 NE XI RANG 

i 530 PRIAT PAINT "M'EXISTE PAS" 
160Ü ' 

1610 FRI NT 


< RETURN/ 1 ' ) X$ 

== SURPRESSION 
NON# ; IP NOM*- " 11 


20 


• FR INT * GOTO 1540 


T Ht N RETURN 
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1620 R$- " " ; IHF'UT "SUPPRESSION ÜK < Ü--H ) R$0"fr T HE N 

1540 

1630 FOR J-ftrtMG TO NFICH-1 
1 640 SNRP NOM*-. J >, Nün$C J+ 1 > 

1 630 S UfiP RU E $ J ) , RU E3K J+l > 

1660 ÿ WrtP V I L L E $■; J ; , V ILLE$^ J+l > 

1670 S N H P C P 3 T 5* •: J > , CF 1 S T$*: J+l > 

1630 H EK ï J 

1 630 NÛMSC MF I CH ’•= 11 " ■ RUES*:: MF I CH >= 11 11 « V I LLE$-' MF T cm >=s 11 » : r octé 

çnfich?*"" - 

1700 NFICH^HFICM-1 
1710 GOTO 1540 

C : CRERT 1 0H/T10D ï F 1 CRT I G N 

LF LISTE DU FICHIER 

FIN FI N DE GE 33 I ÜH< SflUVEGRRDE > 

LFN LISTE DU FICHIER P H R NOM 
LFV LISTE DU FICHIER PRR VILLE 

MiJi-'E ? c 

NüM< OU <RETURN.> >? DUPONT 

Hou. no ï'» UK 1 0- I î ) i Q 

Rue? 11. RUE NOBEL 
Vi Ile? H ONT I GM V 
C o de P o s* t ■?. 1 ‘ T ' 8 1 8 O 

NOM*:; OU CRETUPN:.- /? 

Br-eâk i n 270 

GESTION DE FICHIER 


Nous proposons un programme de gestion de fichier adaptable. 
Chaque ligne d’une table FICH$(J contient un “enregistrement” 


RANG 



CODE 

LIBELLE 

PRIX 

STOCK 

1 

R5 

xxxxx 

50000 

20 

2 

R18 

xxxx 

60000 

12 

3 

R4 

xxxxx 

400000 

30 

4 

R35 

. *J 

700000 

4 

5 




.. _i 


TABLE 


FJCH$(.) 


La table est sauvegardée dans un fichier séquentiel sur cassette ou disquette. 
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10 ' FICHIER 

vÿ •' 


36 ' 

40 CLE RR 5ù0y 

L»Ü NRU6=4 ■’ nombre de rubriques 4 - a *d-3P r ter .> 

69 MF I CH” 10ü nom b re ivaxi de fiches 

f 0 DIM FI CH$< MF I CH , NPUB > 

00 •* — * — — n o IÛ3- d e s r u b ri 4 u e s ( a a d -3. F t e r . J 

90 PIJB$< 1 )= 11 CODE 11 
1 00 tëUEÎC 2 11 L I BELLE " 

110 RU&$< 3 >- ” PF.: I Y, " 

120 RIJB®':; 4 ' = 11 3 1 ÛCK " 

14Û •' 

15u MF I CH- G ’ 'nombre de fiches 

ICO CL3- : INF U T “Mou. veau. Fichier < fj/H > %R$ ; IF Rï*”ü" T H EM 190 


179 ÛVBUB 710 
10G •' 

19Ü CLS : PR I NT "MLLES : 
2Ü0 PR INT l'HE:-:: 3); :, C 
210 PR INT 1RBL3), "LF 
220 PR IM F T R B 1 - 3 > • "FIN 


* PR INT 

= CF'ERT I OH/MÜD 1 F I CRT ION " 
-LISTE DU FICHIER" 

•FIN DE SESS I 0N\ SMJVEGhRDE 


d 


£2,0 PR 1 HT : H*=s " M < Il 'PUT " MODE " ; MS 
240 if MS«"C" THEN GOSUB 3Q0 
250 IF MS* "F IN" ’THEH GOSUB 570 
260 IF MS*" LF " THEM GOSUB 850 
270 GOTO 190 

2-20 ' ==s=B=====:a===*=*=****** CREATION ET MODIFICATION 
£90 ■' 


30ü PR 1 J IT 

310 PR INT RlIBiCt:*; 

320 LINE INF U T "?•' » CLE® : IF LEHC CLE® >-0 THEN RETURN 


330 •' 

340 IF NFICH-0 THEN 390 
350 FOR RftHG-1 TÜ MFICH 

360 IF lLE^FIlH*v RhNG, 1 ) THEN 440 ■' nom existe t-il.Y 
37G MENT RRNG 

SCO ' 'nouvelle de 

390 PR INT : R$=" " - INF'IJT "Nouvelle cle GK C ü/N > " ; R$ I : - R$\>"Q M 

THEN 300 


400 HFICH=NFICH+1 

41Ü RRNG-MF1CH 

420 FICHS< RRNG.- 1 .'-CLE® 

4 0 ■* — — — - — entree - r m o d i t z on e s- 

440 PR INT 

450 FOR R=1 TO N RL' B 

4 60 PR I H T F ICH$ 1 R RNG ; R ) j TR B< 1 5 ), a n c i e n ne v a 1 € o. r 

470 FRI NT RUB®C R )> T H B 1 - 22 j»> ' nom de zone 

48Ô LINE IN PUT 

490 IF >" " T HEM F ICH$( R RM G > R 
500 NEXT R 
516 GOTO 300 
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570 PR INT - PR INT 11 RPr'lJY ER SUR RECORD > PU I S RETURN ’i " 
580 :■■:$= imputa 1 > 

590 IJPEN "f.RS : FI CH" FOR ÜUTPUT FsS #1 
6ÜÜ ' 

610 PR INT # 1 , NF I CH 

êuiO '' 

•iü.'îü FUR I — 1 TO NFlUH 
649 FOR J=1 TO NRUB 
b 50 PR INT #l,FiCH$C I, J) 

66ü hi-:<;t ■ 

b?0 Ht: TT I 
680 CLOSE# l 
690 RETURN 

700 ■•===«==========«=_==—= LECTURE fichier 

7 1 0 PR I HT • PR I NT " APPUYEZ SUR < PL R Y > " ; PR I NT 
720 OP EN “UfiS'FICH" FOR INPUT RS #1 
r' 3 0 

74ü INPUT # 1 , H F I CH 

75Û FOR F~1 1Ü N F I CH 

( ' ti U F’ u R R = 1 T l j H R !J B 

770 L I NE I HP IJ Ttn , F I CH* -s F , R > 

78U MENT F 
790 HE NT F 
300 CLOSE «1 

810 FR INT : PR INT NFICHj "FICHES" 

820 FOR TP--1 TÜ 1000 = MENT TP 
830 RETURN 

840 'p=55=««s=s«=i=« S i LISTE DU FICHIER 
350 CL.S 

860 PR INT "LISTE DU FICHIER 11 : PR INT 
870 ' 

680 FOR F TO NFICH 

890 PR I NT F I LH$( F j 1 > ; TfiBC 1 0 ) ; •' zOuÇ 1 
900 PR INT F ICH$( F.i 6 ) ' zone 2 

910 NE N T F 

920 PR INT - INPUT "APPUYEZ SUR < RETURN >";X* 

930 RETURN 


SAISIE D’ÉCRAN 

Une saisie d'informations avec l'instruction “INPUT” ne permet pas de se posi- 
tionner sur une zone qui aurait été mal documentée. 

Le programme suivant le permet. Il utilise la fonction INPUT${1). 

En outre, les caractères frappés au clavier peuvent être contrôlés dès leur intro- 
duction. sans attendre la frappe de "RETURN ”. 
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10 * SAISIE ECRAN 

2ü ' 

30 -■ NOMS DES ZONES 

40 N RU B» 3 •' NOMBRE DE RUBRIQUES 

50 NRUBSK 1 >="NÜM • “ ■ NRUB$-:. Z >="RUE • M ' NRUB*C 3 "VILLE • ,r 
60 GOSUB 110 

70 ■' Pour test seulement 

80 PR INT «FOR P=1 TO NRUB : FRI NT FI Dm P ) * HEXT P 
30 END 

100 -■ k==mss= 5 ==smb:=== Sou.s-Pro9ra.mnie saisie écran « 


120 LO CAT E 1 > 23 : PR INT "FLECHE HAUT POUR ZONE ARRIERE” 

130 * * - — - a f f î ch a 9 e ti ori'i s d e s zo ne s 

140 FOR P=1 TO NRUB 

100 LO COTE 1 , P+ 1 : PR INT NRUB5K P ) 

16P» LOfiATE 10, P+l - PR INT F1CH$CP> ' ancienne valeur 
170 NE NT P 

180 '' SAISIE DES ZONES 

190 FOR P=1 TO NRUB 

20G XL- 10 ' VL=P+ 1 ; GOSUB 290 

21Û 1F R-l THEN FIGH*< P ;«-LIG* 

220 IF R» 3 THEN IF PM THEN LÜCATE XL, VL ; PEINT FICHSCFMP* 
P- li GOTO 2Ü0 ELSE 200 
23Ô ' 

240 LO CRT E XL , VL « PR I NT F ICHSC P > > 

250 N- 1 5 - L E N< F 1 C H$ ( P ')')■ IP N > U T HE N FRI N T S P C <. : ! > 

260 N EX T P 
270 RETURH 

28û •' Saisie d f u ri e 1 i 9 ne 

29Q LIG$=" ” 

300 ' 

31Ô L=LENCLIG$ > : LQCHTE XL+L/tL ' coordonnes affichage 
320 ' 

330 C$~INPUT$< 1 MC a ASC<C$> * lecture 1 caractère 
35 Ü 

360 IF COB AMD C< >29 THEN 390 "code suppression 

370 IF L>0 THEN L1G&=LEFT$( LIG$, L-l '>■ PAINT CHR$ J . 8 • CHR$< 32 2 j 
^ GOTO 310 ELSE 310 

O O0 

39Ü IF 0=13 THEN 46U •' code de return 

400 1F C=30 THEN R=3 : RETURN * zone arriéré 

410 IF C< 32 OP! CM 23 THEN BEEP’GUTÜ 310 ' contrôle 

420 LIGMLIGS+C* ' ajout caractère 

430 PR INT CS ■' aft i ch a 9e caractèr e 

440 GOTO 310 

456 ‘ return 

460 IF LIG$< >" " THEN R=1 ELSE R=2 

47Ü RETURN 
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HISTOGRAMME 


Ce programme d'histogramme calcule l'échelle automatiquement. 



10 ■' 

2Û NM®'? 

30 CE-6 CF- 13 
4@ SCREEN 2 
30 ÜPEN "GRF : 


HISTOGRAMME 

■' nombre 
COLQR CE/ CF 

FOR QUTPUT RS #1 


60 DflTFl JV j 500 / FV/ 400 


de 


moi a 


70 DflTFl MRS ..600/ flVR/700 
80 DFlTfl MRI/ 600/ JU1/500 

90 DATA JL/ 700 
100 

lie FOR 1=1 TO NM'REfiD M01S*< I >/ VHTE< I > 1 NEXT 
120 ' 

130 XA“20 1 YR-130 ' dePart axes 

140 IX®30 ' iriterval ] e 

150 HECR”120 ' hauteur écran 

150 ' recherche ma xi 

170 MX»VNTE< 1 > 

180 FOR M-2 TO NM 

190 IF VNTE<M»MX THEN MX-VNTEC M > 

200 NEXT M 

210 ECH-HECRxMX ' echelle 

220 ' axes 

230 LINE< XA/ Vfi >-< XR+NMSIX/ Y A CE 
240 LINE( XR / YR >-( XA / Yfl-HECR 5/ CE 

230 < AFFICHAGE MOIS 

260 FOR M-l TO HM 

270 X-XR+8+ IX£< M-l > • Y*"Yfl+ 1 0 

280 DRAW " BM«X; , =Y , " PR INT * 1 , MO I S*< M > 

290 NEXT M 

300 ' courbe 

310 FOR M=1 TO NM 

320 XI = I X*M r Y 1 =Yfl-VNTE< M )*ECH — 


I 
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330 CE=M- ï NT< M/ 1 5 )% î 4 

340 LINE <X1,Y1 >-<Xl+3,YR)iCE,BF 

350 NEXT M 

3*0 affichas* valeurs 

370 FOR M*1 TÜ NM 

330 Y-Y3- VNTEC M >*ECH- 1 6 

390 X*Xfl+lX*<n-l >“3 

400 DRAW " BM-X j , «Y > " ■ PR I NT # 1 , VNTE< M > 

410 NEXT M 
420 C$=TNPUT$( 1 ) 

HISTOGRAMME EN 3 DIMENSIONS 


Si la largeur des “bâtons” est augmentée, il faut supprimer les instructions 270 à 
290 afin d’éviter des mélanges de couleurs. Une autre solution consiste à définir 
la même couleur pour tous les bâtons (instructions 260 et 290). 

10 * h i s t o 9 r a m m e 3d 

20 •’ 

30 OP EN "GRF ; 11 FOR OUTFÜT HS #1 
40 C0L0R 1,15, 1 5 : SCREEH 2 


50 X 

10=50 ; YD : 

-60 

J 

deP art 


60 ' 






70 L 

,G=4 


1 

larsec 

j.r 

yô PR-4 


•* 1 

ro f 01 

cideur 

90 I 

TV* 15 



\ nter>. 

va 1 le 

1 00 

■ j 





110 

HH=6 


, 

nombre d* bâtons 

120 






130 

HC 1 J 1 =40 





140 

Hc 2 >=30 





150 

H< 3 >=50 





160 

H 's 4 >=10 





170 

H( 5 >=60 





180 

HC 6 >=40 





130 

,i r . . 





200 

FOR H- 1 

TÜ NH 


’ NH bâtons. 

210 

XB=XD+ 

<h-i ynv 

i 



220 

YB=YD+ 

H-l >41 T* 

i 



23Ü 

PRESET 

< XB-36 , ïi 




240 

PR INT 

#1, HC H ) 




250 

FOR OX 

=1 TO PR 


' 1 

bâton 

260 

L I NE< 

XB+OX , YB+DX 

c xb+d; 

X+LG • YB+DX~H< H > 

265 

■' — **— 2 

70 a 230 

üP 1. 1 

oïi ne I 


270 

IF DX 

=1 THEN 

300 



230 

LINE 

C XB+DX j Y 

B+DX- 

H* H > >■ 

C XB+DX+LG , YB+D 

290 

PSETC 

XB+DX+LG 

, YB+D 

X-HC H 

) > f H 

300 

NEXT D 





310 

NEXT H 





320 

C$=INPUT$C 1 > 
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BIBLIOTHÈQUE 



Une bibliothèque est gérée dans des tables en mémoire centrale. 
Ces tables sont sauvegardées sur cassette. 

AUT$( ) 


FREUD 


FINAUD 


Auteur 

Deux mot-clés par ouvrage sont prévus. L’édition des listes triées par titre et par 
mot-clé se fait selon le principe présenté dans le programme de gestion 
d’adresses. 

On remarquera l’instruction : 

360 IFTIT$=LEFT$(TITR$(RANG,L)) THEN 480 


C$(.) 


PSYCHANALYSE 


ASSEMBLEUR 

Z80 






TITR$(, 


MA VIE ET LA PSYCHANALYSE 


PROGRAMMER EN ASSEMBLEUR 


Titres 


En “mode modification”, elle permet d'entrer seulement les premières lettres du 
titre. 


10 BIBLIOTHEQUE 
20 ■' 

3â CL ERE 500C 

4Ü DIM TITR*a00>ifiUT$a00^Cï< 100,2 > 

50 DIM CLE$< 100), IX% 100) 

60 CL S 

70 NFICH-û * nombres de fiches 

80 R$=" M ; INF UT "NOUVEAU FICHIER < (MO l UR$ 

90 IF R$-"0" THEN 120 


100 G G SUE 1070 
110 ' 

12ô CL 3 

130 PF: I NT "MODES 1 " 1 PR INT 
140 PEINT T ABC 2 ); "C 
150 PEINT TREiC 2 )> "LTITRE 
160 FEINT T ABC 2 >) "LC LE 
170 PEINT TRBC2);"FIN 


CREAT I ON/'MOD I F I CRT ION 
LISTE TRIEE PRE TITRE 
LISTE PAR MOT CLE" 
SAUVEGARDE CASSETTE" 
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tSÜ PR INT T ABC 2 ) J- M S > SUPPRESSION OUVRAGE" 

19Ô PRINT : M$= 41 11 ^ IHPUT M MODE ) r * J MS 
20 ÿ IF M$="C" THEN GOSUB 290 
21Û IF M$="LTITRE n THEN GOSUB 660 
220 IF ni- 11 FIN” THEN GOSUB 940 
230 IF Mi- M LCLE U THEN GOSUB 1320 
240 IF Mi="S u THEN GOSUB 1530 
250 GOTO 130 

z6 0 .'^ C ==^======« a CREATION/ MODIFICATION ===== 

270' E n mode ru o «J i f" i c a 1 1 on , e n t r e r les- P r e m i e r e s I e t t r e s du. 
titre 

28 Ô ' 

290 PRINT 

300 PRINT «TITS= M 11 ' IMPOT "TI T REC ou return) " JT1TS 
310 IF TITi=" " THEN RETURN 
320 •' 

330 L-'LENC T I TS > 

340 IF HFICH-Ü THEN 400 
350 FOR RANG- 1 TO NFICH 

360 IF T I T S=LEFT SC T I TRSC RANG > , L ) THEN 480 

370 MENT RANG 

3S0 

390 * nouveau. titre 

40U R 11 1 ' : I N PU T "No ij. v e ■?. u. t i t r e C 0 / H ) " J Ri 

410 IF R$< > M Q" THEN 300 

42Ü NFICH«NFICH+1 

430 RANG-NFICH 

440 ' 

450 T1TRSC RANG >=TITS 
46Ô ' 

470 'pour modification.- aPPuyer sur <retu.rn> si üm zone ne 
ch an 9e Pas 

430 PRINT 'PRINT T I TRSC RANG > : F' R I NT 

4Q0 PRINT fllJTSC RANG THBC 15>j ' ancienne valeur 

5 0O filJTS-" " ; INF'UT "Auteur " ; RUT i : I F AUT$<>" " THEN RUTSC RANG .:■= 

AUTS 
51Ü ‘ 

520 FOR C=1 TO 2 

5 3 0 PR: I N T Ci C RAM G* C >; TAB< 15 ); ' a. ne i e n n e v aie» i r 

540 Ci=” 11 : I HP U T "Mot c le %C$ 

550 IF CSC THEN C$< RANG* C > s C$ 

56Ô NEXT C 
570 GOTO 300 

£50 LISTE TRIEE PAR TITRE 

660 FOR LV=t TO NFICH 

67Ô CLESC LV >=T I T RSC LV ) ! I XSC LV >=LV 

680 NE: :T LV 

690 

700 NC L -H FI CH 1 GOSUB 020 

710 ' EDITION 

720 PRINT ; PRINT "LISTE PAR TITRE" « PRINT 
730 IF NCL*0 THEN RETURN 
740 FOR LV-1 TO N CL 
750 N - 1 'A\<. L V ) 

7b0 PRINT LEFTSC T I TRSC K > , 20 ) , T ABC 25 > ) 

77Ü PRINT HlJTiOO 
780 N EX T LV 

790 PRINT- INFUT "APPUYER SUR < RETURN) ";P$ 

800 RETURN ~ ^ 
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810 

826 

830 

840 

85Û 

38 ü 

87ü 

ooÜ 

890 

30Û 

310 

920 

930 

340 

350 

38 ü 

970 


ECART =NCL 


TRI SHELL 


ELhRT = IHTC ECRRT/2 j ■ IF ECFfEK 1 THEN RETURN 
IV =0 

FOR 3 = 1 TO NCL-EC'RRT 
.J= I +ECART 


IF CLE*-: J)=>CLE* f : I > THEH 91 Pi 
SURF CLE*< I ), CLE$C J > 
sw mp i x“ 2 : i > , i x j > : i v - 1 
H EXT r 

IF IV -1 THEN 85G EL SE 840 


F FI MT " APPUYEZ SUR < RECORD > 
C^IMPUTï( I ) 

OPEN "E>IB M FOR ÜUTPIJT MS #1 


= SAUVEGARDE 
PLUS < RETURN 


CAS 


i'ETTE 


980 FOR 1=1 TO HFICH 
930 PR INT #1,TITR$( I > 

J 000 PR INT #I,RUT$U> 

101 U FOR C—l TO 2 
1020 FR INT #l,C$r; 

1030 N£Xr C 

1040 MEAT I 

1Ô5Ü CLOSE #1 : RETURN 

1Ü70 FR INT "APPUYEZ SI IR •rpLfl' 
1080 OPEN "B IB" FOR I MPI lf AS 
1030 FOR 1-1 TO 10O 


LECTURE CRS 
i/ " • PR I HT 


#1 


•ETTE 


1 100 
1110 
1120 

1130 


IF fcOFC 1 >*-l THEN CLOSE # I ■ MF I CH= I - 1 ■ Q'iTn l 
I N PU 1 #1,11 TR*< I >, RI JTïL I ) 

FOR C-l TO 2 
INPIJT #1 , c%*: I , C > 


1140 HEXr c 
115Ü N EX T I 
1160 STOP 
1170 * 


1 1 o a P R I N T * P R I NT N F- IC H ; 1 1 L I V R E 3 11 ■ PR INT 
1190 FOR I P— 1 TO 18Ü0NFXT TP 
1200 RETURN 


0 


131Ô 

1320 

1330 

1340 

1-350 

1 3 bU 

1 370 

1380 

1 330 

14 OU 

141Q 

1420 

1430 

144Ü 

1450 

146 Ü 

1470 

1480 

1430 


LISTE PAR MOT CLE" 

PR INT 

NuL-0 ’ nombre de clés 

FUR LV—1 TÜ HFICH 
FOR C=1 l'ü 2 

I F C$< L : J .. C )= M " OR c$( L V , C )= 11 % " THEN 1 380 
NcL=NCL+ 1 ^ CLES-S HCL )C*< LV A3 > = IX'Y HCL 
NEXÏ C " 

HEXT LV 

GÜ3UB 320 
' édition 

PR INT : PR 1 1 fl' "L I STE PAR MOT -CLE ° ! PR I MT 
FOR LV-1 "ü NUI 

X-IX* a_v 

I F CLE$( LV- 1 X >CLE$C LV > THEH PRIAT - PRIAT Cl E«< L'' > : PP I AT 
FR I N I TfiBC 4 > ; LEFT$< TI ÎR*< X > . ££i . THE:.' ^ 

PRIAT MU $<. X > 

A EX T LV 
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15ÜÜ F'RINT ! IHPIJT 11 APPUYEZ SUR <RETURN>" : Rï 

1510 PET U RM _ HippRE^mN TITRE 

1530 PRINT ; TITï» 11 " : IMPUT "TITRE %TIT$ 

154Ü IF TIT$“ ,MI THEN RE T IJ RW 
1550 L-'LEH 1 - TITï ) 

1560 FOR RAMG=1 TO MPI CH 

157Ü IF T I T i-LEFT T I TR$C RANG. );L) THEN 1610 
1530 NEF; T RANG 

1590 PRINT - PRINT M N ' EXISTE PAS* 1 : PRINT : GOTO 1530 
16Û0 ' 

1610 R$= ltl1 • IMPUT "SUPPRESSION OK <0/N> "J R* 

1620 IF R$< >"ü" THEN 1530 
1630 FOR J-RANG TO MFICH-1 
1640 SNA P T I TR*< J >, T I TR$< J+ 1 > 

1 650 SW AP AUT$ < J > j RUT* < J+ 1 > 

166Ü FOR C-l TO 2 

1670 SW AP J > C ) * CS< J+ 1 / C > 

1630 nef; T C 
1690 N EX T J 

1700 TITRSC NF1CH ?= >M ' ! AUT$< HF1CH )=" " 

1710 FOR C=1 Tü 2 * C$< NFICH^ C " : NEXT C 
1720 HF1CH-HF ICH-l 
1730 GOTO 1530 

CREAT I U N. •"MOU I F I CAT I ON 
LISTE TRIEE PAR TITRE 
LISTE PAR MOT CLE 
S fl IJ V E G AF: D E C AS 5 E T T' E 
SUPPRESSION OUVRAGE 

MODE >? LT I T RE 

LISTE PAR TITRE 

BASIC UE fl fl Z 
BASIC ET SES FICHIER 
BASIC POUR TOUS 
FORTRAN 

PROGRAMMER EN ASS EM B 
VIPERE AU POING 


DUPONT 

DUPONT 

DUPONT 

MARTIN 

FINAUD 

BAZIN 


L. 

LTITRE 

LCLE 

FIN 


ASSEMBLEUR 

PROGRAMMER EN RS SE MB FINAUD 


BASIC 

BASIC DE A A Z DUPONT 

BASIC ET SES FICHIER DUPONT 
BASIC POUR TOUS DUPONT 

FICHIER 

BASIC ET SES FICHIER DUPONT 
BASIC DE A A Z DUPONT 

FORTRAN 


FORTRAN 


MARTIN 
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POSSIBILITÉS GRAPHIQUES DU MSX 

DESSIN 


A I aide d un curseur que vous déplacez avec les quatre flèches, vous réalisez 
un dessin que vous pouvez sauvegarder. 

Trois types de figures sont prévus : cercle, rectangle, triangle. 

Il faut deux points pour définir chaque type de figure. La couleur de fond{F) 
permet d effacer des parties de figure et ainsi d’en composer d’autres. 


1 er point 



La couleur peut être modifiée en mode curseur en frappant un chiffre compris 
entre 1 et 9. 

Exemple, pour tracer un rectangle : 

rj Vous répondez “R” à la question “Commande? (R,T,C,)” 
u Vous positionnez le curseur avec les flèches puis vous appuyez sur “V”. 

□ Vous déplacez le curseur et vous appuyez sur “V”, 

Remarque : en couleur de fond(F), le curseur disparaît lorsque vous quittez une 
zone coloriée. 

Dans ce cas, il faut changer la couleur. 
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10 — DESSIN 

2U ' UJ.lRSEUP S PR I TE :• 

CE=1 C F = 1 5 te r 1 1 ij. r -= - f <:• nrj 

4ü COLOP CE- CR SCREEN 2 
50 OPEM ''CPP " FÛP OU T pij J R- in 
60 X=108 V=1O0 SPPZTEi':' 1 .>*CHR$f 13*1 • ■' e'jr-r.Çi 

70 •' 

60 PPE SE Te 14, 15U> PEINT #1, M CLRVIER MR- lUsrMLE " 
85 ’ 

90 COLOP 1 PPESET f. 14.160/ PEINT #1 . "Cnr-irci^Tid^ 7 ' 
100 CMS- 1 NPIJTS 1 1 

110 P=1NSTP | : M PTC " CMS IF P=ü T HEN PE F P bi'iTr- 90 
120 

130 PF FSE T f 14,1 70 > : PR INT # 1 . "J EF P OINT" GDSUE: 8 1 
140 XR=X • VFl=y 

100 COLOP 1 PRE SET 1 " ?4 ■ 170 1 PP INT #1 , "S’EMF POINT ! 
160 KB=:-: • ÏE.'^V 

170 IF CMS- "p" THEN LINE 1 . X.R . Yfl V >, CE . FF 
ISO IF CMS- "T" THEN GüSUB 280 
190 IF CM$= "C " THEN GÜSUB24Q 

200 COLOP CF PPEStT-14 1 FO - PR INT #1 . STRING*-’ «O 
210 COLOP CE 
220 bOTO 90 

280 • CERCLE 

240 r-sûR 1 '. ■■ xr-: : v '?+'' vp-y -• ? j 

2Tr0 IF P- 2 THEN PETUPN 

260 CI PC LE • Xft r H > , P , CE PHI NI ■. XR . YR-*-2 j • PE 
<270 PE T OP N 

280 • •- TPIRNGLE 

290 IF VE> VR=û THEN PF TU RM 

800 p=* xb-xr > . VE - VH 1 

310 FOR ï=Vh TC 'TE- S TEP S GM 1 YB--YR • 

320 I F V —VH -‘t F - Ü T HL \ i 340 
3 3 0 LINE X H-V — X H + • V - Y R .• * F’ i • . r c 
34-'i N EXT Y 
850 PETUPN 

8km GESTION CURSEUR 

-.70 PPLSETv 14.1 80 j PEINT #1 , "FLECHE* P' HS ' V ’ / 

380 PUT RPF ITE 1 • X • V-t .CE • 1 

39ü 

400 CS-INKEYS IP C*=" " THEN 400 
410 ' 

420 C-HSC 1 , r S - 

430 IR C“29 1 HE N IF X -2 THEN X'X-2 
440 IF 028 THEN IF X,250 THENX-X+2 
450 IF C =30 THEN 1F '.": : 2 THEN Y=Y-2 
460 IF r>31 THEN IF Y3189 THEN Ï--Y+2 
470 ‘ 

480 IF f THEN FSE T-: X • Y :• • CE T -JL GOTO 530 

490 IF VHl 1 T S 1 0 FfNl- VRL r :' C$ >•' 9 THEN Ct-VHL - CS > 
500 IP C*= 4 *F' f " HE N CF=C F 
510 GOTO 38 U 
580 ' 

530 COLOR CF PPESET- 1 4 , 1 Uû ; PP INT #1 , STF ING*'- 31 
540 COLOP' CE 
550 PETUPN 


R-C.T y “ 

7 0 

1 : GÜSUE- 370 

• CHP*-:. 200 j > 


CÜUL S 2 . . F 


i LHFS'. 20 Ci r 
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TRACÉ D'UN DESSIN PAR SEGMENTS DE DROITES ET 
DIGITALISATION D’UN DESSIN 


Le programme ci-dessous permet de déplacer un curseur à l’aide de quatre 
flèches î l , de “valider” des points et de tracer des droites entre ces points. 

□ Pour “valider” un point, nous appuyons sur “V’\ 

□ Pour tracer une droite entre le point courant et le point valide précédent, 
nous appuyons sur l T\ 



2* point 


Le programme permet également de “digitaliser” un dessin : 

u Nous collons sur l'écran une feuille transparente sur laquelle a été décalquée 
la carte de France par exemple. 

u Nous déplaçons le curseur sur le périmètre de la figure et périodiquement, 
nous “validons 11 les points. Les coordonnées X et Y des points s'affichent alors 
à l’écran. 


Carte de France 
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10 T RH CE DE DESSIN F' RR DROITES +D 1 L 17 HL 1 SH T I ÜN 

28 

30 C F= 1 5 : CE — 1 co u. 1 e u. r f o n d e t £ c r i t.i i r 

4S COLÜR CE.* CF : SC RE EN 2 
50 ' 

60 OR EN "GRP " FOR ÜUTPUT RS #1 

70 PSETC 14, 155 SPRINT #1, "CLAVIER MAJUSCULE" 

80 PSETC 14, 165 > : PR INT #1, “1ER POINT : FLECHES PUIS 
90 PSETC 14, 175 > 

100 PR INT #1 ^ "AUTRES POINTS : FLECHES PUIS " 

110 PSETC 14,185) PR INT #1 , “T : TRACE DROITE" 

120 X = 1 00 : Y = 1 00 * Coo r do rm e e & d P a f - 1 

130 SPRITE$C 1 >=ÜHRÏ( 131 ) 

140 11 ~ — curseur C sP r i te 

150 PUT SF R I TE 1 .« C X * Y-l >, CE - 1 
160 •' 

170 C$=INK£Y$ : IF C*=" M THEN 170 ' test clavier 
180 •' 

130 C-ASCC C$) 

2 00 IF C*29 THEN X=X- 1 •’ 3.=mchp 

210 IF C=28 THEN X=X+i ' droite 

220 IF C=31 THEN Y*Y+1 •' bas 

230 IF C-30 THEN Y*Y-1 ' haut 

240 IF Ü*="V" THEN PSETC X * Y >, CE * XR*X = YR=Y = GOSUB 280 

250 IF C5i= H T 11 THEN LINEC XR, YR )-< X,Y >, CE < XA*X YR=Y : GOSUB 280 

260 GOTO 150 

270 ■ a.f'f i cha 9e X .. Y 

280 COLÜR CF PSETC 12, 145 > 

230 FOR 1 = 1 TO 10 • PR INT #1 , CHRSC 200 > ; NEXT I 4 effacement 
300 COLÜR CE 

310 PSET C 1 2 .* 1 45 V PR I NT #1,X-Y 
320 RETURN 
330 ' 

340 * ex. 1 FraPPer } V f Puis deP lacer curseur 
350 ' et fraPPer ‘ T' 



Le programme ci-dessous trace une figure en reliant entre eux des points définis 
en DATA. 


20 COLÜR 1,15 
30 SCREEN 2 
40 DR TH 135,13 
50 DRTR 140,13, 

60 DRTR 167,36* 
70 DRTR 171,56, 

80 DRTR 165,80, 
30 DRTR 171,30, 
100 DRTR 180,112, 
110 DRTR 152, 1 18, 
120 DRTR 144,135* 
130 DRTR 111*100, 


CARTE DE FRRNCE 


151,28, 160,33 

177,37, 174,45 

170,68.* 166,75 

168,82, 172,80 

173, 98, 180, 107 

167, 121/ 158, 116 

148, 121, 146, 127 

125, 1 23 , 1 06 , 1 2': 

111,85, 105,77 
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14R 

DRT H 

100 

,64, 

94 

, 57, 

86, 

54 

1 50 

DR T R 

86- 

46, 

97, 

44, 

106 . 

43 

160 

DR TR 

103 

39 - 

102, 

30 , 

107, 

30 

1 70 

DRT R 

1 1 1 

/ 36 

116, 

37, 

121, 

31 

130 

DRTR 

123 

■ 29 . 

130 

, 16, 

134, 

14 

190 

DRTR 

993 

. 339 





200 

■ r 







210 

PERD 

xr, 1 

y r 


Premier P 

o î 

220 

P3ET 

C XR 

, yr >, 

1 




240 

PERD 

X, Y 

- 1F x 

:=939 

THEN 

230 


250 

-* 







26B 

LINE- 

< X, ' 

ï‘ > , 1 





270 

GO T G 

240 






280 

C$-INplJT$( 1 > 






DESSINATEUR 


Permet de dessiner des polygones par segments de droites. 

□ Appuyez sur "V" pour valider le premier point. 

□ Déplacez le curseur avec les quatre flèches puis appuyez sur “T” pour tracer 
une droite avec le point précédent. Pour une figure discontinue, utilisez “V". 



V T 

pour pour 

valider tracer 

T point 


□ Pour tracer un cercle, appuyez sur “V” pour le centre, puis positionnez le 
curseur sur un point de la circonférence et appuyez sur "C”. 

□ “P” peint une figure fermée (positionnez le curseur à l’intérieur de la figure). 

□ “A” annule le dernier tracé (pour une droite). 

□ 1 ,2,3... détermine la couleur d’écriture. 

□ “F” permet de dessiner en couleur de fond sur une partie d'écran coloriée. 
Dans ce cas, le curseur disparaît sur une partie d’écran non peinte (changez 
la couleur pour faire apparaître le curseur). 

□ “G" permet de gommer toute la surface d’un ( rectangle. 
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Les commandes pourraient être stockées dans une table_ . 

Ainsi, les dessins pourraient être sauvegardés et modifies en ajoutant ou en 

supprimant des commandes. 

On remarquera la gestion du curseur avec un sprite. 


in •' dessinateur 

£0 CF=15 ; CE=1 
3 © COLQR CE.. CF 
40 SCREEN 2 
50 ' 

fit* GF' EN "GRF • " FOR OU T PUT RS 
70 PPESETv 18-1 35 > : PR INT # 1 , " 
80 PRESETr 18 , 145 > ! F'RINT 41," 
90 PPESET< 18- 1 55 > PR I NT 41," 
100 F'RESETC 18, 165) 1 PEINT #1, 
1 1 0 PRESET < 1 8 , 1 75 ) ■ PR I NT #1 
1 20 PRESETC 18 1 85 > : PR INT #1 , 
130 X=1 00 Y= 1 00 
140 XR-X YA~Y 
150 >'B=XR : YB-/R 
160 SPRITEÏC 1 OCHR*f 131 > 

180 PUT SPRITE 1 .*< X# Y-l >.• CE,* 
190 

200 C*~INKEY* IF C$* ,,M THEN 

210 •' 

220 l>RSC< C $ > 

220 IF C-29 THEN K-X-l GOTO 

240 IF C=28 THEN X=X+1 ! LÜTG 

250 IF 031 THEN Y=Y+1 : G0TQ 

260 IF 030 THEN Y=Y-1 : GQT0 


•' c o u. 1 e u r f o Ti d et- e c r i t ut '• e 


#1 

CLAVIER MAJUSCULE 11 

1ER POINT : FLECHES PUIS 'V'" 

2EME POINT - FLECHES PUIS-” 

" T = TRACE DRO I TE/ C • CERCLE " 

. "R -ANNULATION TRRCE / P : PEINDRE" 
"1.2,3, .F COULEURS. • G : GOMMER" 

C o n r d o 't*s Ti e e s d e F' r t 
c o or d cri uee s Foi v>t P r e c * de Ti t 


•' curseur 
v sprite ’> 


1 


200 1 test clavier 


ISO •' fauche 
130 ■' droite 
ISO '' bas 
180 J h.?, ut 
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IF 032 THEN GOSUB 380 
280 ÏF C*= ,, V" THEN PS'ETC X, Y X. CE ■ XR=X : Y R- Y 

290 I F C$= " T " THEN L I NEC XR , Y R W X - Y :• , CE ; XB 

390 IF Cï="C ,J THEN R^SQRC C X-XR v^+c Y-VR v* 
310 IF C$="G" THEN L I NEC XR Yfl W X , y . f:F . 8F 

320 IF C$= 4, R" THEN LÏNEC XE!, YB >-C X, Y > , CF 

330 IF THEN PR INT CX,Y >,CE 

340 IF VALC C$ ■ & THEN CE-VRI.»' 


"XR ‘ Y8~YR 
) : CI F: CLE*' X 

XB : Y-YB : XR 


350 IF Cï“ M F" THEN CE=CF 
3F 0 GOTO 130 


X A*X = Y R* Y 
R.- YR >, F: , CE 

=X : Yfl* Y 


370 


380 PRE S ETC 1 8 , 1 25 > : CÜLÜR CF : PR INT # 1 , CHR$C 200 :■ 
390 PRE8ETC 18.- 125 '• : COL OR CE = PR INT 
400 RETIIRN 


INTERROGATION DE GÉOGRAPHIE 


Le programme ci-après permet de tester les connaissances en géographie. 
Nous demandons de situer la position d'une ville. L'élève déplace un curseur et 
valide la position choisie par “V”. Nous donnons à l'élève l'écart entre la position 
choisie et la position exacte. 



Position exacte 



DX 

DISTANCE=SQR:DX’DX + OY*DY) 


On pourra remplacer la gestion du curseur par un sprite. 

- Supprimer : 700,730,740,750,770 
□ Ajouter: 530, S PR ITES{ 1 ) = CH R$(1 91 ) 

700 PUT SPRITE l.(X.Y-l). 1.1 
720 C$=INKEY$:IF C$ = “" THEN 720 


1 u 


-- GEOGRAPHIE 


2Ù ÜLERR 

1Q00 




30 DIM X 

VC20>; YVC 

20 >, 7$ (20 



40 COL OR 

1, 15: SCR 

!EEN 2 



50 ' 


■ CARTE DE 

F R RMC 

E 

60 DATA 

135, 13 




70 :.'HÏH 

14Ô.I 13, 

151,28, 

160, 

33 

o0 DRT R 

1 b 7 , 3 6 , 

177,37, 

174, 

45 

9Ü DATA 

171,56, 

170,68, 

16b, 7 

5 

1Ü0 DATA 

1 65 .• 80 , 

1 b8 , 82 ; 

172, 

80 

110 DR Th 

1 7 1 , 30 , 

173,33, 

180, 

107 

120 DATA 

180, 112, 

167, 121, 

153, 

116 
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130 DfiTfi 152,113. 148,121, 146,127 

140 DfiTfi 144,135, 125,122, 106,123 

150 DfiTfi 111,100, 111,85, 105,77 

160 DfiTfi 100,64, 24,37, 86,54 

170 DfiTfi 86,46, 27,44, 106,43 

18Ô DfiTfi 1Û3,32, 102,30, 107,30 

120 DfiTfi 111,36, 116,37, 121,31 

200 DfiTfi 123,23, 130,16, 134,14 

210 DfiTfi 222,222 

228 VILLES 

230 DfiTfi 137, 25, LILLE 
240 DfiTfi 147, 42, REIMS 
250 DfiTfi 134,42, F ftR 13 
260 DfiTfi 120,56, MANS 
270 DfiTfi 104, 56, RENNES 
2SÛ DfiTfi 88,51, BREST 
220 DfiTfi 114, 100, BORDEAUX 
3Û0 DfiTfi 153,21 , LYON 
3 1 0 DfiTfi 155,102, fi V I GNON 
320 DfiTfi 162, 116, MARSEILLE 
330 DfiTfi 174, 113, NICE 
340 DfiTfi 130, 115, TOULOUSE 
350 DfiTfi 140, 123, PERPIGNAN OU EST SITUE LYON 

360 DfiTfi 222,232,222 
370 J 

380 REfiD Xfi, Yfl ' Premier- Poimt 

330 F'SET ( Xfl, VA ') > 1 
400 '' * — 

410 R ER O X > V ; IF X=999 THEN 460 
42Ü 4 

430 LIME-'CX/ï 1 
440 GOTO 410 
450 

460 V=0 

470 RE RD XjY,V*'IF X=993 THEN NV=V • GOTO 520 
480 7=V+1 

490 XV< V )=X : YVc V )=ï ! V*< V >=V$ 

50O GOTO 470 
510 ■ 

530 OP EM "GRP 1 11 FOR OUTFUT RS #1 
53Û ' 

540 

550 X~130 1 Y~30 
560 

570 V*» 1 NT < RNDC 1 >$HV >+ 1 •' ville au. hasard 

58Ô ’ 

59û RRESETC 1 0 , 160 > : FRI NT # 1 , " DU EST S I TUE . M > V*- V > 

670 14 GESTION CURSEUR 

680 PSETC10, 170 > sRRINT #1 , "FLECHES puis ' V' " 

690 4 

700 T=POIHTCXj Y > 

710 ‘ 

720 C$=:INKEY$ 1 IF C$<> ,in THEN 770 
730 FSE T <X,Ï>, 1 
740 PRESET<X, Y> 

750 GOTO 720 
760 ■’ 

770 PSET< X> Y >j T 
78G ■“ 
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790 

C-M 

i3l( C$ 

> 




800 

IF 

029 

THEN 

i^i *”■ 2 



810 

IF 

0—28 

TH EH 

X=X+2 



S20 

IF 

030 

THEN 

Y~Y-'2 



830 

1F 

031 

THEN 

Y— Y+£ 



840 







S5Q 

1F 

C*-"V 

1,1 OR 

C** M v" 

THEN 

390 

870 

GOTO 70Ü 




880 


— 

— 

— cale 

u l ' J i 

s ta ne 

320 

DX- 

: XV( v ; 

>“X Di 

i - i v \ v ; 

1 i 



9Ü0 D= S QR C D X* [X- •! + D Y * D T' > 

910 PSET 10 ; 1 SU > ' PF.: I NT #1, "VOUS ETES Fh ">D*10> "KM" 

920 PSETCWV) YWV>>, 1 
930 FOR TP=-1 TO £000 : N EX T TF : ' 

240 ‘ et t a.cemçrit- 

250 PRESE7X XV< V > , YV< V > > 

960 CÜLÜR 15 ; PSETC 1 © , 180 >» PR INT # 1 , STRING0C 31 , CHR.$C 200 > > 
270 PSET-;: lû, 16ü > 1 PRIHT # 1 , STR ING3K 30 , CHR$< 200 > > 

9SÔ CÜLÜR 1 
990 GOTO 570 


ANNEXE 1 


INITIATION 

LE MODE DIRECT 


Sans écrire de programme, on peut utiliser directement les instructions du BA- 
SIC. Par exemple, pour imprimer la somme de 1 400, 1 200 et 700, nous écrivons : 


PRINT 1440+1200+700? 

4 


Imprimer 

1440 - 1200+700 



Le symbole y correspond à la touche “return” qui valide la ligne frappee au 
clavier. Tant que nous n’avons pas appuyé sur cette touche, les caractères de la 
ligne en cours peuvent être annulés en appuyant sur 


PRINT 14A 


0n s'est trompé ; 
appuyer sur «— 
pour effacer le caractère 
erroné 
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LES VARIABLES 


Les montants de quatre chèques, dont nous voulons calculer le total, peuvent 
être mémorisés, grâce à des “variables” : 

En frappant Cl =1400 nous affectons, à la variable Cl, la valeur 1400. 


Ük 

C 1-1400 -7 

Ük 

02 = 1206 -7 

Ük 


Ü3~70ü / 
Ük 

Ü4//00 v 
Ok 


Cl/ 1400 


Contenu de la 

y 

r 


variable Cl 


— — 


PR' INT 
s o 00 


Total des 
4 chèques 


l : Ri Ml Cl, JjCj.iL 
1400 12Ü0 7 mm 

Ok 


Vérification des 
montants des chèaues 


Si le montant d’un chèque est faux, rien n'empêche de lui affecter une autre 
valeur : 


ük 

P R 1 .1. NI L 1 + C 2 + L j -H.. 4 ? 
5900 


Attention ! Les noms des variables peuvent comporter plusieurs lettres mais, 
seules les 2 premières lettres sont significatives. 


CH 1= 14 00 
Ük 

CH2: 1 200 
ük 

FR INT ÜH l ,CH2 
1200 1200 

\ 

CH1 = CH2 



Les noms de variables ne doivent pas comporter de mot-clé du Basic : 


“TO" est un mot-cié 
du Basic 


Ük 

fü î HL- 100 

S y ri ta.-: LLror 
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LE MODE PROGRAMME 


Si une même suite d'instructions doit être exécutée plusieurs fois, il devient plus 
pratique d’écrire un programme qui sera exécutable autant de fois que nous le 
désirons : 

□ chaque instruction est précédée d’un numéro, 
u “RUN” commande l'exécution du programme. 

□ les instructions sont exécutées dans l'ordre de la numérotation. 


N°3 

2^- 

d'instructions 



lo ci=i4eu -7 

20 02= 120 0 ~7 — 

30 0 3 =800 v- 

■ 40 C 4=2500 7 

50 P R INT C1+C.2+C3+Ü 4 Z 


Réponse 


RUN -7 
5900 

rik 


Demande 

d'exécution 


Ecriture du 
programme 


RI JH ~y 
5900 


A l’issue de l’exécution, les variables ont conservé leurs valeurs, et il est toujours 
possible de faire en “mode direct” (c’est-à-dire sans numéro d’instruction). 


il n'y a pas 
de numéro 
d'instruction 


PR INT Clj Çg.-C 3- '"A~? 

1400 1200 O00 2500 


Si une instruction est mal frappée, la frapper à nouveau. 


[20 i-2-l 300 



LIST 7 
1 0 C 1 = 1 400 
120 C2= 13001 
30 03=800 
40 C 4 =2500 
58 PR INT C1+C2H 


+C4 


On frappe une 
nouvelle ligne 20 
(l'ancienne es* effacée) 


La commande ust permet de lister un programme. 

■ Ajout d’une ligne de programme 

Vous pouvez également insérer des instructions en leur affectant un numéro 
compris entre ceux des lignes où vous voulez insérer : 
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45 F 1 R INT Cl ; C2.i C3 jC4 ~t ^ 


L IÇT “7 
IM Cl =1406 
20 C2=1300 
30 C3-800 ^ 

40 C 4 -2500 

[45 _Pg I±il _ül. lCâlÇ3i£4 

50 FRI HT CH-C2+C3+L4 


Insertion 
d'une ligne 
de programme 


■ Suppression d’une ligne de programme 

Frapper le numéro de ligne à supprimer, suivi de return” . 


20 “7 

LIST -50 

10 Cl® 1400 

30 C3=S0@ 

40 C 4 =25G0 

45 PR INT Cl;C2>i::3.iC4 
5© PR INT C1+C2+C3+C4 

Ôk 


La ligne 20 
est supprimée 


La présentation du résultat pourrait être améliorée - 


50 PR INT 
3+C4 


R UN 

f TOT HL L>E 


» rriTHi NFS CHEQUES; M • C 1 +»: 


rhEQÜËSn 5 y 00 


Libellé 


+c 


■ Sauvegarde du programme 

La sauvegarde sur cassette d’un programme se lait par la commande : 


CSAVE “nom-programme” 


i a tnurhe “RECORD” du lecteur/enregistreur doit être enfoncée, 
ta commande CLOAD -nom-programme” permet de relire un programme sau- 

vegardé. 


CSAVE “ESSAI” 
CLOAD “ESSAI” 
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L'INSTRUCTION INPUT 


Cette instruction permet de fournir des informations au programme pendant son 
execution : 


HEU -y 



Pour effacer 


l'ancien programme 
L 


10 INPUT "Montant du. chenue- 1 " 
2G INPUT 11 Montant du. chenue 2 11 
30 PR I NT " 'Vota. 1 cheT u. es : " : C 1 +C2 
Ok 

ru 'fi ? 

Montant du. chenue 1 ? 1400 
Montant du. chenue 2 1 200 ^ 

T o t a. 1 c h e- n u. e s : 2 £ ÿ 9 


L'ordinateur attend que i 
l'operateur entre la 
valeur de Ci pour 
continuer l'exécution j 


Au moment où une instruction est exécutée, le message qui y figure (montant 
chèque 1 ? sur l’exemple) est affiché, puis l'ordinateur attend la réponse de I ope- 
rateur avant de poursuivre l'exécution du programme. 

Remarque : La commande new permet d effacer un programme 

Si, en réponse à une question input, I opérateur appuie sur RETURN sans 
entrer de valeur, la variable spécifiée dans input conserve son ancienne valeur 
Naturellement, il convient d'en tenir compte dans l’écriture des programmes. 


10 INPUT “NOMBRE " ; 
20 PEINT A 
30 INPUT "NOMBRE "• 
40 PEINT H 
Ok 

P. U N y 

NOMBRE V' ) 2_ / 

12 

NOMBRE "-y 


X a conserve son 
ancienne valeur 


LES BOUCLES 


Voici un programme très court et néanmoins bavard. L instruction goto io (ALLER 
EN 10) provoque un "branchement” à l'instruction 10 qui est à nouveau exécutée, 
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Boucle 

r" 10 FRI HT M HPPUVER SUR CTRL ET STOP" 
L >'0 GOTO 10 


RUN 




APPUYER S U F* 

CTRL 

ET 

STOP 

APPUYER SUR 

CTRL 

ET 

■CT GF 

HPPUVER SUR 

CTRL 

ET 

STOP 

APPUYER S U F 

CTRL 

ET 

STOP 


Le programme ci-dessous vous permet de connaître de quelle somme vous dis- 
posez au fur et a mesure de vos achats. 



Tout ce Qui suit ' 
est du commentaire 


10 •' FRITES VOTRE MARCHE 
1:0 ' 

30 ï N PUT 11 COMBIEN AVEZ VOUS M . TîRL 
40 •' 

"50 INPUT lf PRI>- DU PRODUIT , PRIS! 

60 INPUT "QUANTITE M ; OT 


! I S0_U R I-Til T H l . ” P R l VT QT 1 ** " 

I 9Q PR INT PR INT "IL VOUS RESTE : " . TTRL 
L i 0ÿ GOTO 50 


RU N 

COMBIEN R VE Z VOUS ? 200 
PR IN DU PRODUIT ? 4 
QUANTITE ? 

IL VOUS RES .'E : 130 - 

pp TV H jj PRODUIT T 


TTAL*— 

Ancien contenu 

J - Prix x QT 


de ttal 

1 

TTAL«- 

200 

4x5 


Appuyer sur CTRL/STOP 
pour stopper l exécution 


Tout ce qui suit rem ou fe caractère ' (apostrophe) est du commentaire qui n’est 
pas exécuté par BASIC. 

Par exemple, la ligne 1 0 n’est pas exécutée. 


L’instruction 80 ne doit pas être lue comme une égalité algébrique. 
Le signe “=” représente une affectation : 
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Ancien 
contenu 
de UAL 


TTAL/ 

200 


Prix 







Nouveau 


TTAL / 



contenu 

► 



Quantité 

de TTAL 


180 




L’ordinateur soustrait du total (TTAL) le prix multiplié par la quantité (PRIX*QTE) 
puis range le résultat dans TTAL. 

Remarques sur rinstruction PRINT : 

Un point-virgule empêche le saut de ligne. 


10 X-123 
20 Y *456 
30 PRINT X: 

40 FRI HT Y; 

Ok 
ru ri 

123 456 

La présence d’un point-virgule après PRINT X provoque l’affichage de “456 à 
la suite de “123”, 


IF condition THEN instruction (SL.* ALORS) 


L’instruction if.then.. teste si une condition est vraie et, dans ce cas, exécute une 
ou plusieurs instructions (séparées par 

L’instruction 30 se lit : SI X=Y ALORS IMPRIMER “X est égal à Y 
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10 INFUT "NOMBRE X ,f ; X 
£0 INFUT "NOMBRE Y ” ; Y 
30 IF v- 1 -, THEN^PRIHJ '»X ES T EGAL H Y." 


40 GOTO lU 


F' UN 

nombre X ? s , 

NOMBRE Y ? 8 -, 
X EST EGfiL Ff Y 
NOMBRE X • 4 
NOMBRE Y 5 
NOMBRE X ; 



Les différentes operateurs de comparaison sont : 

égalité : = 
plus grand que : > 
plus petit que ! < 
différent de : <> 


Le programme ci-dessous présente 2 nombres à l’opérateur et lui demande quel 
en est le produit. 

Si la réponse est fausse, la question est à nouveau posée. 

le 4=9 
3 U 

30 PR INT " Produit de " • R : "Par" : fc: * 

40 IN PU T R 

50 IF R ~ Fl Y B THEN PR INT J ' C'est C 3 . u : STOP 
t* 0 F' F* I N T ' J E r r eu.t'-" 

70 GOTO 30 
Ük 

n,' ij_ ? 

Pr tid u i t de S S ? 

Break i n 56 


L’instruction 50 doit se lire : 

Sf R=A*B ALORS IMPRIMER “Oui, c est ça” 

Sans instruction de test, ne pourraient être exécutées que des séquences d’ins- 
tructions figées. C est dans cette instruction ir.then.,. que réside toute la puis- 
sance de l’ordinateur. 
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■ Sortie de boucle 

Pour effectuer la somme de plusieurs chèques, au lieu d écrire une suite d'ins- 
tructions INPUT, utilisons une boucle. Lorsqu'il n'y a plus de chèques à totaliser, 
l'opérateur entre la valeur 0 en réponse à la question 1 Montant chèque?”. 


Boucle 


10 
£0 
1*30 


TÜHEÜ : '-Ü 


total chenues 


40 

50 

L h;i0 
■0 


I H F-' U T 1 1 Mo ïi t •?. Ti t c h e 4 u e M F- o i < r 
IF CHEQ-0 THEN GO T Ci îqgy 
TCHEÜ=Ti';HEG+CHEQ 
GOTO 30 


TC Ht 9 


f i ti 


00 PR I NI 

"Tôt. a 

. chenue 

M . 

Ük 




ru.Tf 




Montant 

ehe^u.^- 

■; 6 pour 

i i. I "l 

MOTkt-7'üt 

cheT u.è 

'i ü pour 

f 1 Tl 

MüTit-3. Tit 

che^ u.e 

( 0 pour 

f i T- 

Montant 

•_he 4 u.ç 

y pour 

t 1 Tl 

M o T» ta rit 

1 ” h H; 1 4 U. J T‘ 

( 0 Pour 

f .1 ï‘1 

Tôt?. 1. cl 

’rl 4 U. Ç 5 : 

4 jüü 



ûn so*t de 
la boude 



L’operateur 
entre 0 
pour sortir 
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■ Compteur de boucles 

Introduisons maintenant une autre notion, celle de "compteur de boucles". Afin 
d'exécuter une boucle un certain nombre de fois seulement, nous augmentons 
une “variable compteur” de 1 à chaque passage dans la boucle, puis nous tes- 
tons la valeur de cette variable compteur : si le contenu de ce compteur a atteint 
la valeur limite souhaitée, nous sortons de la boucle, 

Boucle 

I Ûk 

\ I xst-1 00 

10 CFT-0 
20 ■' 

^ 30 cpv=cpr+i ^ 

, 40 PR I HT Jl BOUCLE 

50 IF CPI -5 THE H 
l— 60 GOTO :0 
70 ■" 

1 00 F 1 F 1 1 N l 1 ' L b o u. c L c «j» s t t e r n i ri c e c P t . 

= " jjCPT 
Ok 

rijï'i 

BOUCLE no 1 
BOUCLE mo 2 
BOUCLE Tro, 3 
BOUCLE fro 4 
BOUCLE Tro 5 

L - 3 . bouc t ï ter rriviee c P t- — 5 

nk 


La boucle est terminée CPT=5 ; 





FIN 
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Utilisons un compteur de boucies pour notre totalisation de chèques. Nous quit- 
tons la boucle automatiquement dès que 5 chèques ont été totalisés. 


10 T'CHEQ-0 
2G CPT -'0 


t o t a l cheq u. es 

C O Pi P t C • J. r d ■ir' L’I C 1 U. C 1 *i5' S 


3â ' 

-—40 ï H PLU' 1 1 Mo ïï t -3. ri t c h e 1 q u , e 1 1 C H E Q 

30 TCHEQ -T CHEQ+CHEQ ' cumul chèque 

CPT-CP1+1 '' '3. u 9 r< i e n t e r L F 1 1 d e 1 

70 IF CPT»5 THEN GOTO 100, •' SI CPT =3 PL OR:- PILLER EN 100 
i- 80 GOTO 40 - ^ 

— 

'*100 PR INT "Total des chenues : 11 ; TCHEQ 


ük 


ru. n 

Montant 
Monta nt 
Montant 
Montant 
Montant 


chenue 
chçq U.& 
chenue 
chel u.e 
cheq ue 


i 400 
1200 
800 
1100 
500 


T o t a. I d e s c ki e- q u e s ; 5 0 0 0 



Question : Comment faire pour que ce programme fonctionne avec un nombre 
de chèques non prévu à l’avance ? 

Réponse : 5 INPUT “Combien de chèques ?”; NCH 
70 IF CPT=NCH THEN GOTO 100 
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Pour vous assurer que vous avez bien compris ce programme : 


u 

□ 

u 


entrer les montants pour 3 chèques : 

au lieu d'entrer le montant pour le quatrième chèque, appuyez sur -ctrlstop 
frappez en mode direct : 


PRINT CPT JC 

déjà entrés^ ^ 3 3 6t TCHEQ doit avoir ’ Pour valeur, le total des trois chèques 
J frappez “cont- pour continuer l’execution du programme. 

run 



LA BOUCLE FOR 

Le programme précédent pourrait s 'écrire plus simplement à l'aide d'une boucle 

FOR...NEXT.. 
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Boucle 


Valeur 1 



limite j 

1 LÜ 
\ 

i 

! UHRU r::: U j 


-OR CF'T :: = t TÜ PT: 


r 40 

I MP U T "Mo 

nt ch 


■ tôt 3.1 r; h •"•■'i 

POLIR •>■!■= I JUS OU ' 1 fl 


i Sÿ T C HE IJ.» I L H E Q H- 0 H E i .■ ! 

L- t'U ME!-! T CPT 


•' l 'p'f P I + 1 ' :••• I. 
; i. î pt: I HT' " Tôt-* l che'3 u.es ' " , TOHhU 


:RV ITLLEP EN 40 


Comment se déroule l'exécution de ce programme : 

•. i au moment ou l’instruction for est exécutée, le système BASIC affecte à CPT 
la valeur 1 et enregistre la valeur limite spécifiée (5 sur l'exemple) ; 
n les instructions entre for et next sont exécutées avec CPT= 1 

L'instruction NEXT CPT augmente la valeur de CPT de un. 

Si celle-ci reste inférieure ou égale à la valeur limite spécifiée dans for, les 
instructions entre for et next sont à nouveau exécutées avec CPT=2, etc. 
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Autres exemples : 

10 FOR 1-1 T0 100 

20 PRINT "Le BASIC, mais c’est très simple" 

30 NEXT I 

RUN 

Le BASIC, mais c'est très simple 
Le BASIC, mais c est très simple 

Ce programme imprime les carrés des nombres de 1 à 5, 

IL* F'ijF: i- i T fi ri 
-Ï0 PRINT I Üj 
îr* H ELIT J. 

Ok 
r>i r, 


4 


I 

ni: 


LES CHAÎNES DE CARACTÈRES 


Les variables que nous avons jusqu'à présent considérées, étaient du type 
merique. Il existe également des variables du type “chaîne de caractères’’. 
Pour les distinguer, elles comportent, à la fin de nom, le caractère 

Exemple : 


10 1 HP 1 -T "GÏU.Ç1 eet '.votr e non* 11 , NÜ( V I$ 
r" -ü PR INT HOMsb ; 

: — 30 GÜÏU 30 
Ok 

RUN 7 

e... t votre nom DUPONT ? 

0 U PO H ' T D U P ü N T D U P LJ N T D U P ON T b IJPO N T D ! J P O N F p 
iJPONTDi i P ÜH T O U ROM T DUPON T D U PO H l'DUPi iNTF-l l 
P IJ N T 0 U F ' ÜH T D U P ON T D U P 0 N T D IJPON T D 1 1 F 1 n |-| J t.:- fl p 
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Nous" errons, pies tard, qu'il existe des instructions de manipulation des chaînes 
La concaténation de chaines se tait à l'a, de de l'opérateur “ + ". 


10 ÏNPUT ‘'VOTRE cdchiÏm 
20 1HPUT " VOl RL PF-.ENUM 

30 ‘ 

4 0 y $ =■ N ü ri $ + ^ P $ 

Ok 

VOTRE NOM î ME UNI EF: 
VOTRE PRENOM '• JE FIN 
MEUNIER JEAN 


: PR* 



ANNEXE 2 


MESSAGES D'ERREURS DU BASIC 


Si le message d'erreur ne suffit pas pour détecter d'où provient l'erreur, on pen- 
sera à visualiser les valeurs des variables en "mode direct”. Ceci aidera bien 
souvent à la retrouver 

Des instructions STOP judicieusement placées permettront également de mieux 
suivre l’évolution des valeurs des variables. On pourra aussi insérer momenta- 
nément des instructions de visualisation des valeurs de variables <print) -X-"; x 
par exemple). 

La trace (avec TRON). un peu trop riche en informations, ne sera utilisée que 
dans les cas particulièrement délicats. 

(* signale les messages spécifiques au disque) 


Message 

Code 


*Bad allocation table 

60 

La table d’allocation de la disquette est dé- 
truite. 

*Bad drive name 

62 

Mauvais nom d’unité. Utiliser 

‘Bad file mode 

i 

61 

(mauvaise utilisation de fichier) 

On utilise PUT,GET avec un fichier ouvert en 
séquentiel où on ouvre un fichier dans un 
autre mode que “R” “0” ou “1” ou “A”. 

*Bad file number 

52 

Mauvais numéro de fichier 

*Bad file name 

56 

(mauvais nom de fichier) 


Le nom de fichier utilisé n est pas normalisé 
(trop de caractères par exemple). 
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Message 
Can’t continue 

Direct statement in file 
Disk full 

Disk I/O error 

‘Write protected 
Division by zéro 
‘Field overflow 

‘File already exist 

File already open 

‘File not found 

‘File still open 
For without next 

Illégal direct 


Code 

17 


57 

66 

69 

I 

68 

11 

50 

65 


54 


53 


64 

26 


(l'exécution ne peut se poursuivre) 

On a tenté de poursuivre l'exécution d'un 
. programme qui : 

z a été stoppé à cause d'une erreur 
c a été modifié après une interruption 
□ n’existe pas. 

On peut cependant continuer par GOTO xx 
(RU N xx initialise les variables à 0) 

Commande directe dans un fichier. 

(disque plein) 

Tout l’espace disque est utilisé. 

(erreur disque) 

Une erreur disque s’est produite pendant une 
lecture/écriture. Le système d exploitation ne 
peut rien faire. 

i 

Le disque est protégé en écriture. 

(division par zéro) 

(dépassement du field) 

Une instruction FIELD a tenté d'allouer dans 
le buffer plus de caractères qu'il a été prévu 
à l’ouverture du fichier. 

(fichier déjà existant) 

Le nom de fichier défini dans NAME existe 
déjà. 

(fichier déjà ouvert) 

On essaie d’ouvrir en mode séquentiel OUT- 
PUT un fichier déjà ouvert ou un Kl LL tente 
de supprimer un fichier ouvert. 

(fichier non trouvé) 

Une instruction LOAD,KILL ou OPEN réfé- 
rence un fichier qui n'existe pas. 

Un fichier n’a pas été fermé par (CLOSE). 

(FOR sans NEXT) 

Un FOR sans NEXT a été détecté. 
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(illégal en mode direct) 

L’instruction frappée n’est pas valide en mode 
direct, elle ne peut être exécutée que précé- 
dée d’un numéro de ligne. 

Ex. : instruction INPUT-DEF FN 
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Message 

Code ; 


Illégal function call 

i 

5 

(appel illégal de fonction) 

Un paramètre hors du domaine normal a été 
passé à une fonction arithmétique ou une 
fonction chaîne. 

Ex. : □ argument négatif pour SQR 
o longueur spécifiée dans 
LEFT$,MID$,RIGHT$ 
non comprise entre 0 et 255. 

Input past end 

55 

(dépassement de fin de fichier) 

Une instruction INPUT # .. est exécutée alors 
qu’il n’y a plus d'information à lire (fichier vide 
éventuellement). Pour éviter cette erreur, uti- 
liser la détection de fin de fichier EOF. 

Internai error 

51 

(erreur interne) 

Une erreur système s'est produite. 

Une buffer overflow 

i 

23 

(dépassement du buffer de ligne) 

On essaie d'entrer une ligne avec trop de 
caractères. 

Missing operand 

24 

(opérande manquant) 

Une expression contient un opérateur sans 
opérande. 

N EXT without FOR 

1 

(N EXT sans FOR) 

Une variable dans un N EXT ne correspond 
à aucun FOR. 

Ex. : La ligne FOR correspondante a été ef 
facée sans le NEXT associé. 

No résumé 

19 

(pas d'instruction RESUME) 

Une routine de traitement d’erreur qui ne 
contient pas d'instruction RESUME a été ap- 
pelée. 

Out of data 

4 

(Data épuisés) 

Un READ est exécuté alors qu’il n’y a plus 
de DATA à lire, 

□ On a oublié des DATA. 

□ On a oublié de programmer RESTORE 

Out of memory 

7 

(plus de mémoire centrale) 

Il n’y a plus assez de place en mémoire cen- 
trale. 

□ On doit supprimer une partie du program- 
me ou effacer des tableaux (ERASE). 
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Message 

Out of string space 

Code 

14 

(plus de place pour les chaînes) 

L’espace pour les chaînes n’est pas suffisant 
{voir CLEAR). 

Overflow 

t 

t 

i 

6 

{dépassement de capacité) 

Ex. : On a tenté de donner à une variable 
entière une valeur en dehors de 
-32768, +32767. 

Redimensionned array 

10 

(tableau redimensionné) 

Un tableau est à nouveau dimensionné ou 
une dimension de tableau est déclarée pour 
un tableau non déclaré explicitement mais 
créé par BASIC (avec une dimension 10) 
parce qu'il a déjà été référencé (par une ins- 
truction A(4)^X par exemple). 

‘Résumé without error 

22 

(RESUME sans erreur) 

Une instruction RESUME a ete exécutée 
alors qu'il n'y avait pas d’erreur. 

RETURN without 

GOSUB 

3 

(RETURN sans GOSUB) 

□ On est “entré” dans un sous-programme 
par GOTO (au lieu de GOSUB). 
u On est “entré” dans un sous-programme 
par erreur parce que l'on a oublié STOP 
ou END à la fin de l’exécution de son pro- 
gramme (devant un sous-programme). 

‘Séquentiel I/O only 

58 

i 

On essaie de lire un fichier séquentiel en 
accès direct. 

String formula too 
complexe 

16 

(expression chaîne trop complexe) 

Une expression du type chaîne est trop longue 
i ou trop complexe, La décomposer en expres- 
1 sions plus courtes. 

String too long 

' 15 

i 

(chaîne trop longue) 

Une chaîne ne peut dépasser 255 caractères. 

Subscript out of range 

9 

(référence en dehors du domaine) 

Un tableau est référencé en dehors de ses 
dimensions. Souvent, pour un tableau non dé- 
claré qui a été dimensionné à 10 par BASIC 
parce que référencé (par une instruction 
A(4)=X par exemple). 

Syntax error 

2 

i 

(erreur de syntaxe) 

La ligne contient une erreur de syntaxe : 

□ parenthèses non appairées 
u ponctuation incorrecte 

□ instruction n’existant pas 

□ etc. 
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Message 

Code 


i 

Type mismatch 

13 

(désaccord entre numérique et chaîne) 

Une valeur numérique est affectée à une 
chaîne où l'inverse. 

‘Too many files 

67 

Il y a plus de fichiers que le nombre prévu par 
MAXFILES. 

Undefined line 

8 

(numéro de ligne indéfini) 

Une instruction référence une ligne qui n existe 

pas. 

Undefined user fonction 

18 

(fonction utilisateur indéfinie) 

Une fonction USR est appelée avant d'etre 

définie. 

Unpritable error 

23 

(il n’y a pas de message pour cette erreur). 


ANNEXE 3 


CARACTÈRES DE CONTRÔLE 


Les caractères dont les codes sont compris entre 0 et 31 ont des fonctions par- 
ticulières. A partir du clavier, on y accède avec la touche ctrl ou directement 

pour certains codes (< — » î i )• 

Dans un programme, on y accède par “print chrsicode)". 


1 CT R U A 

— Curseur au début du mot précédent. 

2 CTRL B 

3 CTRL'C 

— 

4 CTRLD 

— 

5 CTRLE 

— Eflace la ligne à droite du curseur. 

6 CT R LF 

— Curseur au début du mot suivant. 

7 CTRL G 

— Sonnerie. 

8 CTRL H 

— Curseur arrière. 

9 CTRU1 

— TAB 

1 0 CTRL J 

— Saut de ligne 

11 CTRLK 

— HOME 

1 2 CTRL L 

— CLS 

1 3 CTRLM 

— Retour en début de ligne. 

1 4 CTRL N 

— Positionne le curseur en fin de ligne 

1 5 CTRLO 

— 

1 6 CTRLP 

- — 

17 CTRLO 

— 

1 8 CTRL R 

— [ÏNS 

1 9 CTRL S 

— 

20 CTRL'T 

— 

21 CTRL U 

— Efface la ligne courante. 

22 CTRUV 

— 

23 CTRLW 

— 

24 CTRLX 

— [SELECT 

25 CTRLY 

— 

26 CTRL Z 

— 

27 CTRL 

— 

28 CTRLN 

— Flèche droite 

29 CTRL] 

— Flèche gauche 

30 CTRL T 

— Flèche haut 

31 CTRL- 

— Flèche bas 

128 

— DEL 
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TABLE DES CODES ASCII 




32-» 

128 





128- 

> 255 



32 


64 

(V 

96 s 


1 2 8 

f: 

T 

170 

-i 

212 

■ 

33 

j 

65 

H 

37 a 


129 

ij 4 

171 

1 j. 

2 13 

m 

34 

»» 

66 

B 

98 b 


1 3 0 

£ 

17 2 

14 

214 

m 

35 

# 

67 

f: 

99 r 


131 

à 

1 T 3 

i 

215 

# 

3 h 

$ 

68: 

D 

100 

d 

13 2 

■â 

17 4 

W 

2 1 6 

A 

37 

JS 

63 

E 

101 


1 3 3 


175 

» 

217 

k 

38 

& 

70 

F 

102 

f 

134 

à 

176 

S 

218 


39 


71 

6 

103 

O 

135 

ç 

177 

%à‘ 

■zi 

2 1 9 

■ 

48 

( 

72 

H 

104 

h 

1 3 6 

ê 

178 

i 

220 

m 

41 

42 

43 

44 

45 

> 

* 

+ 

J 

~*7 1 ". 

r o 

74 

75 

76 
7 ?■ 

I 

J 

K 

L 

ri 

105 

106 
107 

1 03 
109 

i 

,.i 

k 

1 

m 

137 

1 3 8 
i 3 9 

140 

141 
14 2 

# 

i 

s 

i 

A 

179 
18 0 
181 
18 2 

1 8 3 

1 8 4 

/>• 

i 

O 

.V 

i^r 

i.i. 

IJ 

2 21 

’**/ ^ r "> 
fcT— C. 

2 ci! 3 

o c 4 

C„ li. T 

c; 

Lm» 

2 26 

1 

1 

o: 

B 

r 

46 

47 

n 

y 

r» 

78 

73 

H 

Ü 

110 

1 1 1 

ci 

o 

14 3 

A 

135 

') 

O O *7 

C« 1 M i 1 

TI 

48 

0 

80 

F' 

112 

P 

144 

é 

1 8 6 

H 

O Q 

Cl d O 

2 

49 

1 

81 

Q 

113 

4 

14 5 

=6 

1 8 7 


229 

a 

50 

O 

82 

f: 

114 

r 

146 

Æ 

18 8 

j*. 

2 3 0 

u 

51 

3 

83 

r- 

115 

■z. 

147 

O 

13 9 

r é S 

2 3 1 

T 

52 

4 

34 

T 

116 

t 

14 8 

O 

1 9 0 

4T 

2 3 2 

£ 

53 

Cj 

85 

IJ 

117 

U 

14 9 

c- 

191 

§ 

2 3 3 


54 

S 

86 

V 

118 

y 

15 0 

i*. 

192 

_ _ 

234 

n 

55 

7 

O "7 

O i 

W 

119 

w 

151 


1 9 3 


2 3 ? 

5 

56 

58 

8 

9 

QO 

ij ij 

33 

90 

Q 1 

y. 

Y 

Z 

120 

121 

122 

X 

y 

l‘ 

152 
15 3 
154 
15 5 

y 

Ü 

'ï 

194 

195 
i 9 6 
197 

m 

m 

m 

2 3 6 

r—4 «“7 

«c o i 

2 38 

O -~J o 

C- J 5 

«* 

P* 

€ 

n 

y* i"j 


J 1 

r.'-i 

c 

1 28 

’l. 

P 

156 

£■ 

19 8 

\ 

24 0 

25 

b U 
61 

«J 

~l r 

93 

3 

1 24 
125 

f 

/ 

157 

158 

i 

Pt 

19 9 
200 

■■ 

■ 

241 
2 4 2 

± 

V 

62 

> 

94 


1 26 


159 

f 

201 

l 

243 


63 

? 

95 


127 





64 

é 

96 

\ 

128 


160 

fît 

202 

■ 

24 4 

f 







161 

i 

2 03 


245 

J 







162 

✓ 

204 

\ S . 

2 46 

5- 







163 

ij, 

205 

"V 

247 

** 







16 4 

<*/ 

Ki 

2 0 6 

-A» 

248 

0 







16 5 

fi 

207 

► 

249 

♦ 







166 

a 

20 8 

< 

250 

- 







1 6 7 

0 

2 09 

X 

2 51 

r 







16 8 

6 

210 

H 

252 

Y1 







16 9 

r' 

211 

• 

25 3 

i 







170 

~1 

212 

« 

254 

• 
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CHR$(1) + CHR$(65+X) 


6 5 

© 

66 

0 

67 

¥ 

68 

♦ 

6 9 

❖ 

78 

4 

71 

N 

72 

B 

7 3 

O 

74 

£ 

75 

Cf’ 

76 

5 

77 

P 

7 S 

J3 

79 

4 

30 

t 


8 1 


82 

T 

8 3 

H 

84 

h 

85 

+ 

86 

| 

87 


88 

r 

8 9 

"l 

90 

u 

91 

j 

Q '"ï 

X 

9 3 


9 4 

% 

\ 

9 5 

-4~ 

96 



ANNEXE | 5 


CARACTÈRES SPECIAUX - 


COOE 

En appuyant sur la touche EDS on obtient les caractères suivants : 



SHIFT | CODE 




































ESC 

V* 

v 2 

3 A 

n 

— . — j 

•/- 

r 


<JÜ 


TAB 


CTRL 



OH 

r 

T 

i 










o - î 


© 





< > / I ^ 








2 

ïi 

MM 

J 


TAB 


CTRL 


fi 






n 

I 

BB 

+ 




© n 
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Cet ouvroge s'adresse 6 ceux qui, de plus en plus nombreux, 
ont déjà pratiqué un "BASIC" et qui souhaitent approfondir leurs 
connaissances informatiques sur leur ordinateur MSX. 

vu découvrirez, grâce à de nombreux programmes- 
exemples, foules les instructions du Basic MSX au fur et à mesure 
de vos besoins, et vous utiliserez au mieux toutes les possibilités du 
nouveau standard : le graphique haute et basse résolution, les 
Sprites, la redéfinition des caractères, les sons, etc. 

£es programmes de jeu et de gestion vous permettront de 
mettre immédiatement en pratique votre savoir Hveorique et de 
créer de fort belles pages-écran. 
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